Delphi - LISTAR NOMBRES DE ARCHIVOS

hola q tal, kisiera q me ayuden con este problemita q tengo, kiero hacer un programita q ubike un directorio cualkiera en mi Pc (bueno yo le tengo q dar la ruta) y kiero listar todos los archivos d esa carpeta para luego almacenar los nombre d los archivos en una tabla, buscando en este foro encontre un caso similar pero le dicen q revise la ayuda de Delphi sobre TSearchrec pero la verdad he encontrado poco casi nada, les agradeceria mucho q me ayuden como siempre, necesito varios puntos d vista como hacerlo, gracias

Creo que sería algo así (ojo, que puede tener errores):

var bus:tsearchrec;

begin
FindFirst('*.*',bus);
repeat
HagoAlgo(bus);
until FindNext('*.*',bus)=0;
FindClose(Bus);
end;

La verdad que la sentencia del FindFirst no me la acuerdo bien, pero si buscás en la ayuda sobre ella, me acuerdo que aparece un ejemplo.

Vete a esta direccion y bajate el componente llamado TFindFile
http://www.delphiarea.com/products/
Yo he implementado un buscador con él y ya no uso el del sistema para nada.
Suerte