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

Procedure Tform1.Sendedateien(receivetextcut:string);
Begin

//Dateien mit Einstellungen hinterhersenden
  if Form1.SettingFTP.Active=true then Form1.SettingFTP.active:=false;
  Form1.SettingFTP.Host:=receivetextcut;
  Form1.SettingFTP.Active:=true;
   try
    //Wenn Datei existiert dann senden
    if FileExists('Clients\'+Receivetextcut+'.ini') then 

[b]   Form1.SettingFTP.Put('Clients\'+Receivetextcut+'.ini','Einstellungen.ini');[/b]
   Form1.SettingFTP.Put('Clients\Webfilter.ini','Webfilter.ini');
   finally
   Form1.statusbar2.Panels[1].Text:='Einstellungen erfolgreich gesendet';
   end;
end;