Problemas al crear la lista con IdFtp

[VolaRe]

Hola,
Ya estoy otra vez a la carga. Estoy desarroyando un cliente ftp y tengo el siguiente problema. Cuando me tiene que crear la lista de directorios y archivos del servidor, me lanza un error -> FORMATO DE LISTA DESCONOCIDO

La vedad qeu no tengo ni puta idea de porque, y ya me estoy tirando de los pelos, asi que os paso el codigo haber si me podeis ayudar.

var
  i: Integer;
begin
  Memo1.Lines.Add('Generando lista de Archivos y Directorios . . .');
  ListBox1.Items.Clear;
  ListBox1.Items.Add( '..' );
  ListBox2.Items.Clear;
  IdFtpCliente.List(IdFtpCliente.ListResult, '',False);
  If IdFtpCliente.DirectoryListing.ListFormat = (flfDos) Then //el error me lo marca aqui
   begin
    for i := 0 to IdFtpCliente.DirectoryListing.Count - 1 do
     if IdFtpCliente.DirectoryListing.Items[i].ItemType = (ditDirectory) then
      ListBox1.Items.Add( IdFtpCliente.DirectoryListing.Items[i].Text )
     else
      ListBox2.Items.Add( IdFtpCliente.DirectoryListing.Items[i].Text );
    Memo1.Lines.Add('Lista Terminada . . .');
   end;
end;

Os agradeceria tambien que me aclaraseis la duda de porque me da error y tambien que me indiqueis el camino para que no me lance el error.

Muchas gracias de antemano.