Problem mit idFTP

[J.P.]

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='') and (edit2.Text = '') then showmessage('Bitte tragen sie ihre Daten ein!') else
 begin
  timer1.Interval:=strtoint(edit6.Text)*1000;
  timer1.Enabled:=true
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 try
  idftp1.Get(edit3.Text,edit7.Text);
 except
  timer1.Enabled:=false;
  showmessage('Ein Fehler ist aufgetreten, die Aktion wird abgebrochen');
 end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 try
  idftp1.Put(edit10.text,edit4.text);
 except
  timer2.Enabled:=false;
  showmessage('Ein Fehler ist aufgetreten, die Aktion wird abgebrochen');
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if (edit1.Text='') and (edit2.Text = '') then showmessage('Bitte tragen sie ihre Daten ein!') else
 begin
  timer2.interval:=strtoint(edit8.Text)*1000;
  timer2.Enabled:=true;
 end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 try
  idftp1.Delete(edit5.Text);
 except
  timer3.Enabled:=false;
  showmessage('Ein Fehler ist aufgetreten, die Aktion wird abgebrochen');
 end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 try
  timer1.Enabled:=false;
  timer2.Enabled:=false;
  timer3.Enabled:=false;
 finally
  showmessage('abgebrochen!');
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if (edit1.Text='') and (edit2.Text = '') then showmessage('Bitte tragen sie ihre Daten ein!') else
 begin
  timer3.interval:=strtoint(edit9.Text)*1000;
  timer3.Enabled:=true;
 end;

end;
procedure TForm1.Button4Click(Sender: TObject);
begin
 try
  idftp1.SocksInfo.Host:=edit11.Text;
  idftp1.SocksInfo.Password:=edit2.Text;
  idftp1.SocksInfo.UserID:=edit1.Text;
  idftp1.Host:=edit11.Text;
  idftp1.Password:=edit2.Text;
  idftp1.user:=edit1.Text;
 except
  showmessage('Es ist ein Fehler aufgetreten');
 end;
end;

end.

Ich hoffe es ist nicht zuviel, das ist alles an Quellcode den ich geschrieben hab...