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

Var I:integer;
    Filename:string;
Begin
//Verbinden....
If SettingFTP.Host<>host then
  Begin SettingFTP.Active:=false; SettingFTP.Host:=Host; SettingFTP.Active:=True; End //Adresse zuweisen wenn anders verbunden
 else
 Begin }//Wenn Host bereits übereinstimmt beginnen und verbinden
  SettingFTP.Active:=false;
  SettingFTP.Active:=True;

  //Queue abarbeiten
  For i:=Files.Count-1 downto 0 do
   Begin
   If Pos('SETUP',Files.Strings[i])>0 then SettingFTP.Put('Clients\'+Host+'  SETUP.ini','InstallierteSoftware.ini');
   If Pos('Freigaben',Files.Strings[i])>0 then SettingFTP.Put('Clients\'+Host+'.ini','Einstellungen.ini');
   If Pos('Webfilter',Files.Strings[i])>0 then SettingFTP.Put('Clients\WebFilter.ini','Webfilter.ini');
   Files.Delete(i);
   End;

 End;					

1:
2:
3:
4:

  SettingFTP.Active:=false;
  SettingFTP.host:=rechner1;
  SettingFTP.Active:=True;
  SettingFTP.Put('Clients\WebFilter.ini','Webfilter.ini');