ich möchte beim Programmstart eine Ftp verbindung aufbauen

[aaron]

Hallo,
ich möchte beim Programmstart eine Ftp verbindung aufbauen, wenn das nicht möglich ist, soll eine Dialogbox zu sehen sein. Mit dem Code unten klappt das nicht so ganz,
Das Proggy bleibt hängen wenn keine Onlineverbindung da ist, und es ist Keine Message zu sehen...

Wer mag mir dabei helfen?

Delphi-Quellcode:

procedure TFormSplash.Timer1Timer(Sender: TObject); 
begin 
if TransferringData then idFTP1.Abort; 
  if IdFTP1.Connected then IdFTP1.Disconnect; 
try 
   IdFTP1.Host := Form10.Edit1.Text; 
   IdFTP1.Username := Form10.Edit2.Text; 
   IdFTP1.Password := Form10.Edit3.Text; 
   IdFTP1.Connect; 
   if idFTP1.Connected then 
      try 
      Timer1.Enabled := false; 
      close 
        except; 
    end 
  else 
    Showmessage('Kann keine Verbindung aufgebaut werden');   
      finally 
     end; 
  end;

[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]