TidFTPListItems erfahrung?

[supermuckl]

hat hier mal jemand was mit indy TidFTPServer gemacht?
hab mich mal dran probiert und bin gleich mal gescheitert wo ich dann nun schon 5 stunden rumprobier ^^

beim OnListDirectory muss ich dort dann eine ftplistitems parsen und somit an den client schicken

aber ich krieg um gottes willen diese liste nicht vollgestopft mit filename und grösse und solche sachen

ich blick net wie ich die "createn" soll oder halt damit umgehen soll

habs so probiert:

Delphi-Quellcode:

procedure TForm1.ftpListDirectory(ASender: TIdFTPServerThread;
  const APath: String; ADirectoryListing: TIdFTPListItems);
  var
  liste:tstrings;
    LSize, LTime: string;
  l, month: Word;
  size:integer;
  result1:string;
  filename: string;
  modifieddate: tdatetime;
  itemm : tidftplistitem;
  collection1: tcollection;
  coll: tcollectionitemclass;
  begin
memo1.Lines.Add(apath);
memo1.Lines.Add(asender.CurrentDir);
memo1.Lines.Add(asender.HomeDir);

//Collection1 := collection1.Create(coll);
//itemm := tidftplistitem.Create(collection1);

itemm.UserPermissions := 'r';
itemm.Size := 4224;
itemm.DisplayName := 'bla';
itemm.FileName := 'bla1';
           {
liste := tstringlist.Create;
Size := 5664;
filename:= 'blabla.bla';
modifieddate := strtodatetime('12.11.03 12:44');
LSize := StringOfChar(' ', 20 - Length(IntToStr(Size))) + IntToStr(Size);
      Result1 := FormatDateTime('mm-dd-yy  hh:mma/p', ModifiedDate) + ' ' + LSize
       + '  ' + FileName;
liste.Add(result1);
                                        }

//memo1.Lines.Add(inttostr(liste.count));
adirectorylisting.ParseUnknown(itemm);
//adirectorylisting.ParseCustom(adirectorylisting.Items[0]);
//asender.Connection.WriteLn('dfsdf');
//liste.Free;
//adirectorylisting.Items[1].FileName := 'grr';
//adirectorylisting.Items[adirectorylisting.IndexOf(adirectorylisting.Add)].FileName := 'test1';
//adirectorylisting.Items[adirectorylisting.IndexOf(adirectorylisting.Add)].DisplayName := 'test2';
//adirectorylisting.Parse(flfUnix,adirectorylisting.Items[1]);
end;

ich weis.. is bisschen arg schrott drin ^^ aber dann sieht man was ich schon rumprobiert hab :/

hab auch schon in die idftplist.pas reingeschaut aber das is mir ein kleines bisschen zu hoch
wär schön wenn mir jemand einen anhaltspunkt oder wenigstens irgendwie beispiel code oder sonstiges geben könnte.. sonst verzweifel ich an dem scheiss