Ordner über sockets versenden

[Master_Jochen]

Oh Man habe den code versucht anzupassen aber bekomme immer wieder nen access violation error

Delphi-Quellcode:

procedure TForm1.ListDirectory(path:string;stringlist: Tstrings);
var
  SR: TSearchRec;
    i:integer;
begin

    i:=length(path);
    if(path[i]<>'\')then path:=path + '\';
 
    if FindFirst(path + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((faDirectory) = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
           begin;
             stringlist.Add(path + SR.Name);
             ListDirectory(path + SR.Name + '\',stringlist);
           end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;

wenn ich ihn hiermit aufrufe

ListDirectory(FolderPath,AllFolders); kann das daran liegen das man nicht prozeduren übergreifen variabeln verararbeiten kann und mein code dies versuch? des weiteren wenn ich dieser pocedure de untersten folder gebe bekomme ich kein error...
weiß einer rat von euch profis?

Am liebste hätte ich das ganze mit einer funktion gelöst aber da die sich ja immer wieder selber aufruft weiß ich nicht wie das mit dem result gehen soll... Fragen über fragen