1:
2:
3:

idftp1.connect;
idftp1.put ('1' , '2', 3); // 1 ist das verzeichniss lokal (also zb. c:\hans.txt) 2 ist der Zielname (Also z.B. Hans.txt) 3 gibt an ob überschrieben werden darf (wenn ja: true)
idftp1.disconnect;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
idftp1.connect;
idftp1.put ('C:\wurst.txt' , 'mainwebsite_html/wurst.txt', True); // 1 ist das verzeichniss lokal (also zb. c:\hans.txt) 2 ist der Zielname (Also z.B. Hans.txt) 3 gibt an ob überschrieben werden darf (wenn ja: true)
idftp1.disconnect;
end;                    

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

begin
  try
    idFTP1.Host := txt_Host.Text;   
    idFTP1.User := txt_UserID.Text;
    idFTP1.Port := 21;
    idFTP1.Password := txt_Password.Text;
    idFTP1.Connect(true);
    idFTP1.ChangeDir('test');
    idFTP1.Put('test.txt', 'test.txt', true);
    ShowMessage('Die Datei test.txt wurde hochgeladen!!!');
  except
      ShowMessage('Die Datei test.txt konnte nicht hochgeladen werden!!!');
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

...

var
  Form1: TForm1;
  str1, str2 : TStringList;
  strings, path : String;

implementation

{$R *.dfm}

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  str1 := TStringList.Create;
  str1.LoadFromFile(FileListBox1.Items.Strings[FileListBox1.ItemIndex]);
  strings := str1.Text;
  str1.Free;
  Memo1.Text := strings;
  txt_Datei.Text := FileListBox1.Items.Strings[FileListBox1.ItemIndex];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    idFTP1.Host := txt_Host.Text;
    idFTP1.User := txt_UserID.Text; 
    idFTP1.Port := 21;
    idFTP1.Password := txt_Password.Text; 
    idFTP1.Connect(true); 
    idFTP1.ChangeDir('daten');
    idFTP1.Put(txt_Datei.Text, txt_Datei.Text, true);
    StatusBar1.SimpleText := 'Die Datei ' + txt_Datei.Text + ' wurde hochgeladen !!!';
    idFTP1.Disconnect;   
  except 
      StatusBar1.SimpleText := 'Die Datei ' + txt_Datei.Text + ' konnte nicht hochgeladen werden !!!';
  end;
end;