[ecfisa]

Hola radenf.

Hoy no estoy con el mejor de los días... Claro que no iba a encontrar los archivos, no agregué la ruta al nombre !

Código Delphi [-]
procedure GetFileNames(Path: string; TS: TStrings);
var
  sr: TSearchRec;
begin
  if FindFirst(ExtractFilePath(Path)+'*'+ExtractFileExt(Path),32,sr) = 0 then
    repeat
      TS.Add(ExtractFilePath(Path) + sr.Name);
    until FindNext(sr) <> 0;
end;

Saludos.