FTP server přes synapse (delphi)

Zdravám programatory a rad bych poprosil o pomoc.
Našel jsm na netu jak upravit zdrojak ftpserv co je v baličku ve složce source/demo, aby mi při spuštěni namapoval všechy disky v PC.
Už jsem se o to snažil dřive a probiral to na builder.cz ale bez uspěchu.
V teto době však nefunguje, tak se obracim o pomoc tady.

FTP server při spuštění namapuje všechny disky jak chci ale při kliknuti na disk již nevypiše obsah disku.

Tady je cely ftpthrd.pas 732167592
Tady je to cely 102961696

function TFtpServerThread.builddrivelist(): string;
var
 Drives: array[0..128] of char;
 pDrive: PChar;
 r: LongWord;

begin
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if (r = 0) or (r > SizeOf(Drives)) then Exit;
  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
   result := result + 'drwxrwxrwx   1 root     root         1   1 Jan 2000  drive' + pDrive^ + CRLF;
   inc(pDrive, 4);
  end;
end;
/////////////////////////////////////////////////////////////////////////////////////////////////////
function TFtpServerThread.buildlist(value: string): string;
var
  SearchRec: TSearchRec;
  r: integer;
  s: string;
begin
    result := '';
  if value = '' then
   exit;
  if value = '\' then
begin
  result := builddrivelist();
  exit;
  end;
if value[length(value)] <> '\' then
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////
function TFtpServerThread.buildrealname(value: string): string;
begin
    value := replacestring(value, '..', '.');
    value := replacestring(value, '/', '\');
    if value = '\' then result := value
                   else if (length(value) >= 7) and (leftstr(value, 6) = '\drive') and (value[7] in ['A'..'Z']) then
                                                    result := value[7] + ':\' + copy(value, 8, length(value))
    else
    result := '.\data' + value;
end;