function LastModifiedFile(DirName: string): string;
var
SR: TSearchRec;
MaxF, aux: TDateTime;
MaxN: string;
begin
DirName:= IncludeTrailingPathDelimiter(DirName);
MaxF:= 1.00002;
MaxN:= '';
if FindFirst(DirName + '*.*', 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;