El listado de archivos a travez de ftp me ha funcionado, con los enlaces que me han dejado me ha quedado muy claro... gracias a todos por su ayuda...
El codigo que utilize fue el siguiente :
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
StringList : TStringlist;
Lista : TStringlist;
r : integer;
Begin
StringList := TSTringList.Create;
progressbar1.Position:=0;
try
progressbar1.Position:=20;
IdFTP1.Username := 'gestion';
IdFTP1.Password := 'gestion';
IdFTP1.Host := '192.168.15.200';
IdFTP1.Port := 21;
progressbar1.Position:=40;
IdFTP1.Connect();
progressbar1.Position:=70;
IdFTP1.List(Stringlist, '*.*', false);
for r := 0 to Stringlist.count-1 Do
begin
Listbox1.Items.Add(Stringlist[r]);
end;
progressbar1.Position:=100;
except
IdFTP1.disconnect;
showmessage('desconectado');
end;
IdFTP1.disconnect;
showmessage('desconectado');
End;
Roberto Hernandez