procedure TTestThread.Execute; var LThread : integer; begin FreeOnTerminate := True; LThread := LigneActif; Tester(LThread); end; Procedure TTestThread.Tester(LThread : integer); var dossier : string; begin Form1.IdFTPThread.Username:=IpList.Items[LThread].caption; Form1.IdFTPThread.Password:=IpList.Items[LThread].SubItems[0]; if Form1.IdFTPThread.Connected then Form1.IdFTPThread.Disconnect; dossier:= IpList.Items[LThread].SubItems[2]; Form1.IdFTPThread.Host:=IpList.Items[LThread].SubItems[1]; try Form1.IdFTPThread.Connect; Form1.IdFTPThread.ChangeDir(dossier); Form1.listbox1.Items.Clear; Form1.IdFTPThread.List(Form1.listbox1.Items); Iplist.Items[LThread].SubItems[3]:='Ok'; except Iplist.Items[LThread].SubItems[3]:='Impossible de se connecter'; end; end;