ftp verbindung nicht beenden zu lassen

[aaron]

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  IdFTP1.Noop;
end;

und 

procedure TForm1.IdFTP1Status(axSender: TObject; const axStatus: TIdStatus;
  const asStatusText: string);
begin
  Timer1.Enabled := IdFTP1.Connected;
end;

so mache ich das
danke für deine hilfe