procedure Tmasta.BitBtn1Click(Sender: TObject);
var
i: integer;
ip,acc,pwd,port: string;
begin

for i := 0 to ftplist.items.count -1 do

with ftplist.Items[i] do
begin
ip := Caption;
acc := SubItems[0];
pwd := SubItems[1];
port := SubItems[2];
begin
   if idFTP1.Connected then
      idFTP1.Disconnect()
  IdFTP1.Host := ip;
  idftp1.Port := StrToIntDef(port, 21);
  idFTP1.User := acc;
  IdFTP1.Password := pwd;
  idFTP1.Connect;
    end;
  end;
end;