var
i: integer;
passwd: TStringList;
begin
passwd:=TStringList.Create;
for i:=1000 to 99999999 do begin
passwd.Add(IntToStr(i));
end;
passwd.SaveToFile('passwd.txt')
end;