[roamer]

Как вариант (имя папки, где недавние документы):

Код:

uses
  ShlObj,
  ...;

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage(GetSpecialPath(CSIDL_RECENT));
end;

В модуле ShlObj определены соотв. константы.