idFTP.list bei glftpd (ftpserver) +ssl ->Read Timeout

[gandime]

Hi,
meines wissens nicht sobald man SSL bennutz aber ich werde natürlich gerne überzeugt
ich hab mir aber selbst schon nen Code geschrieben der das auseianderpflückt:

Delphi-Quellcode:

procedure TForm1.list(FTP:TidFTP);
var
  sllist:tstringlist;
  I: Integer;
  s:string;
begin
  sllist:=tstringlist.create;
  lvFTP.Clear;
  FTP.List(sllist,'',true);
  lvFTP.Items.Add;
  lvFTP.Items.Item[lvFTP.Items.Count-1].Caption:='Höheres Verzeichnis...';
  for I := 1 to sllist.count - 1 do
  begin
    lvFTP.Items.Add;
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.add('');
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.add('');
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.add(split_vor(slList[i],' ',true));
    s:=split_nach(slList[i],' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.add(split_vor(s,' ',true));
    s:=split_nach(s,' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    s:=split_nach(s,' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    s:=split_nach(s,' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.strings[0]:=split_vor(s,' ',true);
    s:=split_nach(s,' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.strings[1]:=split_vor(s,' ',true);
    s:=split_nach(s,' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.strings[1]:=lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.strings[1]+' '+split_vor(s,' ',true);
    s:=split_nach(s,' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.strings[1]:=lvFTP.Items.Item[lvFTP.Items.Count-1].SubItems.strings[1]+' '+split_vor(s,' ',true);
    s:=split_nach(s,' ',true);
    while s[1]=' ' do
      s:=copy(s,2,length(s));
    lvFTP.Items.Item[lvFTP.Items.Count-1].Caption:=s;
  sllist.Free;
end;

läft sogar ganz gut^^
und die oben beschriebene 5 ist sobald es eine Datei ist immer eine 1 ich hoffe das das stimmt?