Pascal/Turbo Pascal - contenido de un directorio

¿Cómo puedo listar el contenido de un directorio determinado? Gracias,

Patricio

Prueba con el siguiente código:

Program MuDir;
Uses
Dos;

Procedure MuestraDir(P :PathStr);
Var
S :SearchRec;
Begin
FindFirst(S, P, Archive+Directory+Hidden+SysFile+ReadOnly);
While (DosError=0) do
Begin
WriteLn(S.Name);
FindNext(S);
End; {While}
End; {MuestraDir}

Begin
MuestraDir('C:\*.*');
ReadLn;
End.

Si necesitas algo más complejo, envíame un e-mail. Saludos ;-)