TIdFTP list dentro de Thread

[eflosten]

La variable Carpeta la quité por limpiarlo un poco para vosotros, la uso para un FTP.ChangeDir que ahora mismo tenía comentado, si me quedó algún resto por ahi no lo tengais en cuenta.

listaArchivos lo asigno en el Create a la lista que viene por parámetros, la cual viene inicializada desde el hilo principal (SlVersionesDescargables). Edito el primer post para quitar el Carpeta (que vendría desde el hilo principal por parámetro).

Pues no, no lo edito que ya no me deja, pero bueno, esa linea consideradla comentada.

A ListarArchivos lo llamo desde Execute:

Código Delphi [-]
procedure THiloFTP.Execute;
begin
  if modo = 'DESCARGA' then BajarArchivo
  else if modo = 'LISTA' then ListarArchivos;
end;

El OnWork en este caso no deberia afectar, pero aqui lo teneis

Código Delphi [-]
procedure THiloFTP.Sincronizar();
begin
  Barra.Position := Progreso div 1024;
  if lblProgreso <> nil then lblProgreso.Caption:=intToStr(Progreso div 1024) + ' / '+IntToStr(tamArchivo)+' KB';
end;
procedure THiloFTP.FTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
  Progreso:=AWorkCount;
  Synchronize(Sincronizar);
end;