Hola carlosprotos.
Tomando en cuenta que el último archivo generado será el que tenga la fecha mas reciente de modificación, creo que podrías adaptar la función mencionada en este enlace:
Saber el ultimo archivo de una carpeta :
Código Delphi
[-]
function LastModifiedFile(DirName: string): string;
var
SR: TSearchRec;
MaxF, aux: TDateTime;
MaxN: string;
begin
DirName:= IncludeTrailingPathDelimiter(DirName);
MaxF:= 1.00002;
MaxN:= '';
if FindFirst(DirName + 'csh*.tmp', faArchive, SR) = 0 then
begin
repeat
aux := FileDateToDatetime(SR.Time);
if aux > MaxF then
begin
MaxF := aux;
MaxN := DirName + SR.Name;
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
Result := MaxN;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
LastFile: PChar;
begin
LastFile:= PChar(LastModifiedFile('C:\Users\Rodrix\AppData\Local\Tmp'));
ShowMessage(LastFile);
end;
( No deja de asombrarme la capacidad interpretativa de
orodriguezca )
Saludos