Listar directorio de una red
 

hola amigos como estan necesito una pequeña ayuda con este codigo el cual use hace un tiempo pero ahora no me acuerdo como fue que lo modifique para que me listara los directorios de una maquina en red

Código Delphi [-]
procedure Rastrear (Dir:string);
var
 SR:TSearchRec;
 mascara: string;
begin
 mascara:='*.*';
 if FindFirst(dir + mascara, faAnyFile, SR) = 0 then
 begin
  repeat
     if ( (SR.Attr and fadirectory) = fadirectory) then
       begin
         if  (SR.Name <> '.')and (SR.Name <> '..') then
           Rastrear( Dir + SR.Name+'\' );
       end
     else
       begin
         form1.Memo1.Lines.Add (Dir + SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
 end;
end;

e intentado de las siguiente forma

Código Delphi [-]
 Rastrear(\\Server-gantz\f:\);
 Rastrear(192.168.0.105\f:\);

y no me resulta

e resuelto el problema asignando como unidad de red la particion compartida pero no me siento conforme con esta solucion cualquiera otra ayuda me puede ser util

amigos nuevamente e resuelto el problema como lo queria pues simplemente era quitar los dos punto

Código Delphi [-]
Rastrear(\\Server-gantz\f:\);

ahora lo tengo asi

Rastrear(\\Server-gantz\f\);

ya estoy por aquí de nuevo, tuve que seguir con otras cosas y deje de lado lo del cuadro de amortización pero ya he llegado a este punto y necesito continuar con ello.

Estoy haciendo algo mal pero no veo qué. Pretendo que a través del For... se generen las lineas del cuadro de amortización menos la última y eso sí sale bien, pero después de esas líneas tengo que generar la última donde se indica el importe amortizado de tal manera que el capital pendiente quede a cero.