[glaZZ]

Попробуй так:

Код:

procedure TForm1.btnSearchClick(Sender: TObject);
var
  SR: TSearchRec;
  iTime: Integer;
  sResultFile: String;
begin
    if FindFirst('путь к директории с файлами' + '*.xls', faAnyFile, SR) = 0 then
    begin
      repeat
        if SR.Time > iTime then
        begin
          iTime := SR.Time;
          sResultFile := SR.Name;
        end;
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
    ShowMessage(sResultFile);
end;

P.S.: Если нужно получить полный путь к файлу просто добавь имя найденного файла к пути поиска