.
.
.
uses Shlobj;
.
.
.

procedure TForm1.Button1Click(Sender: TObject);
var
pidl: PItemIDList;
cesta: array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_HISTORY, pidl);
SHGetPathFromIDList(pidl,cesta);
ShowMessage(cesta);
end;