Leer archivo sin saber el nombre

[Copernico]

Buenos días.

Bueno el nombre del tema creo que lo deja claro. En una carpeta me van dejando periodicamente un fichero de texto (.txt) con nombres diferentes cada vez. El problema es que nunca conoceré el nombre de ese archivo, por lo que hasta donde yo llego, no se leer ese archivo sin conocer el nombre.

Tengo el siguiente trozo de código:

procedure TfrVenta.btCargarBalanzaClick(Sender: TObject);

var f : TextFile;

begin

AssignFile(f, ExtractFilePath( Application.ExeName ) + 'NombreDeArchivo');

if FileExists(ExtractFilePath( Application.ExeName ) + 'NombreDeArchivo') then
begin
try

Reset(f);

[...]

Con el siguiente código quiero asignar el archivo (NombreDeArchivo) a la variable f, pero no se como puedo hacer para poder asignar un archivo sin conocer el nombre. Me bastaría con asignarle aquel que tenga extensión .txt, porque es el único archivo que voy a tener con dicha extensión.

Muchas gracias de antemano.

Un saludo.