안녕하세요. 최용일입니다.

TFTPDirectoryList.ModifyDate는 디렉토리들의 수정된 날짜가 들어 있는 TStringList입니다. 쉽게 말하면 TFTPDirectoryList에 여러개의 디렉토리들이 들어 있는데 ModifyDate에는 그 디렉토리들의 날짜들이 차례대로 들어 있는거죠.

StrToDateTime(TFTPDirectoryList.ModifyDate[0]); // 첫번째 디렉토리 수정된 날짜
StrToDateTime(TFTPDirectoryList.ModifyDate[1]); // 두번째 디렉토리 수정된 날짜
...

파일이름, 크기, 등등... 마찬가지니까 참고하세요...

^^ 항상 즐코하세요...

안녕하세요..
우선 님의 답변에 감사드립니다..
제가 질문을 이상하게 써놨더군요..
님이 답변하신 것처럼 했었었는데.. 안되어서.. 질문을 올린것이었거든요..

소스는 아래와 같습니다.

var
  strlist_name,strlist_size,strlist_attb,strlist_date : TStringList;
  fname,fsize,fattb,fdate,gcurdir: string;
  Rdatetime: Tdatetime;
  Fitem: TlistItem;
  size,tcnt,i: integer;
begin
  with TFtp do
  begin
    host := '서버명';
    port := 21;
    userid := 't';
    password := 't';

    connect;

    ParseList := True;
    Vendor := NMOS_AUTO;
  end;

  RemoteFIDList := TList.Create
  strlist_name := TStringList.Create;
  strlist_size := TStringList.Create;
  strlist_attb := TStringList.Create;
  strlist_date := TStringList.Create;

  strlist_name.Assign(tftp.FTPDirectoryList.Name);
  strlist_size.Assign(tftp.FTPDirectoryList.Size);
  strlist_attb.Assign(tftp.FTPDirectoryList.Attribute);
  strlist_date.Assign(tftp.FTPDirectoryList.ModifDate);

  tcnt := strlist_name.Count;

  i := 0;

  R_cbPath.Items.Add('/');
  r_cbPath.Text := '/';
  gcurdir := '/';

  while (i < tcnt) do
  begin
    fname := strlist_name.Strings[i];
    fattb := strlist_attb.Strings[i];
    fdate := strlist_date.Strings[i];
    fsize := strlist_size.Strings[i];

    Fitem := Remote_list.Items.Add;

    if fattb[1] = 'd' then
    begin
       Fitem.Caption := ' ' + fname;
       Fitem.ImageIndex := 0;
       Fitem.SubItems.Add('[폴더]');
    end
    else
    begin
       Fitem.Caption := fname;
       Fitem.ImageIndex := 1;
       size := (strtoint(fsize) + 1023) div 1024;
       if Size = 0 then Size := 1;
       Fitem.SubItems.Add(Format('%dKB', [size]));
    end;
    
    //이부분에서 에러가 납니다.
    //유효한 날짜와 시간형식이 아닙니다라는 메세지가..
    Rdatetime :=strtodatetime(fdate));  

    Fitem.SubItems.Add(fdate);
    Fitem.SubItems.Add(fattb);
    i := i + 1;
  end;

  Remote_list.AlphaSort;
  strlist_name.Free;
  strlist_size.Free;
  strlist_attb.Free;
  strlist_date.Free;
end;

날짜를 ShowMessage 로 출력해보세요. 어떠한 형식으로 나오는가... 그 형식에 따라서 파싱을 하시던가 StrToDateTime을 쓰시던가 결정해야 할거 같은데요...