Wenn ich deinen Source richtig entschlüssle, dann springst du in den Blöcken. Der Compiler versteht deine Sprache sozusagen nicht. Versuchs mal so:
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
Timer1.Enabled := false;
Close;
end else
Showmessage('Kann keine Verbindung aufgebaut werden');
except
ShowMessage('Kann keine Verbindung aufgebaut werden');
end;
end;
Chris