Hier so sieht das ungefär aus. (Zähler geht momentan nur bis 9)
Code:
procedure TForm75.Timer1Timer(Sender: TObject);
begin
edit5.Text:=IntToStr(StrToInt(edit5.Text)+1);
FTP.Get(edit5.Text, edit1.text, true);
end;
if edit5.Text = ('9') then
begin
Timer1.Enabled := False;
end;
LG wincompi5