저는 아래와 같은 방법을 쓰고 있습니다. sample code 에서 가져다 썼습니다. 테스트 함 해보심이 ...

<!--CodeS-->
procedure TFR_MAIN.ChangeDir(DirName: String);
var
LS : TStringList;
begin
  LS := TStringList.Create;
  try
    IdFTP1.ChangeDir(DirName);
    IdFTP1.TransferType := ftASCII;
    IdFTP1.List(LS);
    Memo2.Lines.Clear;
    Memo2.Lines := LS ;
  finally
    LS.Free;
  end;
end;
<!--CodeE-->

접속후 리스트 가져 올때 ...
<!--CodeS-->
if IdFTP1.Connected <> false then
else
    With IdFTP1 do
     begin
      Username := 'update' ;
      Password := 'update' ;
      Host     := '192.168.1.18' ;
      connect;
      self.ChangeDir('/');
     end;
<!--CodeE-->