1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button2Click(Sender: TObject);
var List: TStrings;
begin
List := TStringList.Create;
List.Add(Edit2.Text);
List.SaveToFile('.\ip.txt');
IdFTP1.Disconnect;
  // Verbindungsdaten setzen
  IdFTP1.Host := 'ftp.mitglied.lycos.de';
  IdFTP1.Passive := true; // = true für passiven FTP-Transfer
  IdFTP1.Username := '*******';
  IdFTP1.Password := '*******';
  // Alle Verbindungsdaten vorhanden jetzt versuchen zu verbinden
  try
  if IdFTP1.Connected then begin
      IdFTP1.ChangeDir('server ip');
      IdFtp1.Put('.\ip.txt','ip.txt');
      // Eine Datei downloaden mit get !!
      IdFTP1.Disconnect;
    end;
  except
    raise;  // Exception warum die Verbing fehlschlug ausgeben
  end;