Como puedo Barrer el Contenido de un Directorio????

[AGAG4]

Necesito Barrer el contenido de un directorio algo similar como si fuese a barrer una Tabla de una base de datos para Subirlos al FTP Server por ejemplo:

Código Delphi [-]
While Not EOF(BuscaArchiDir) do begin
  Tomo Archivo;
  Lo Subo a FTP;
Siguiente Archivo;
end;

Agradezco cualquier sugerencia.