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

procedure TForm2.Button1Click(Sender: TObject);
begin
if FTP1.State=prcConnected then FTP1.Quit;
Ftp1.Connect(Edit1.Text, 21);
end;

procedure TForm2.FTP1ProtocolStaeChanged(Sender: TObject;
  ProtocolState: Smallint);
begin
if ProtocolState=ftpAuthentication then FTP1.Authenticate('Username','Passwort');
if ProtocolState=ftpTransaction then FTP1.List('.');                    

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  FTP1.Host := txt_Host.Text;
  FTP1.UserID := txt_UserID.Text;
  FTP1.Password := txt_Password.Text;
  FTP1.Port := 21;
  FTP1.Connect;
  If FTP1.Connected = True Then
  ShowMessage('Verbunden')
  Else
  ShowMessage('Nicht Verbunden');
end;