1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.MessageBox('Es wird nun versucht, eine Verbindung zum Server aufzubauen. Dieser Vorgang kann einige Zeit in Anspruch nehmen!','Verbindung',0+64);
IdFTP1.Username := '*******';
IdFTP1.Password := '*******';
IdFTP1.Host := 'ftp.xxxxxxx.sw.funpic.de';
IdFTP1.Connect;
If IdFTP1.Connected = True then Showmessage('Die Verbindung zum Server wurde erfolgreich hergestellt!')
 else
 begin
 Application.MessageBox('Die Verbindung zum Server konnte nicht hergestellt werden!','Verbindung',0+16);
 Form1.Close;
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
begin
Opendialog1.Execute;
If OpenDialog1.FileName <> '' then
 begin
 IdFTP1.Put(OpenDialog1.FileName, ExtractFileName(OpenDialog1.FileName));
 end;
end;