1   
2   //very simple code
3   
4   uses
5   ShlObj;
6   
7   procedure TForm1.Button1Click(Sender: TObject);
8   begin
9   SHAddToRecentDocs(SHARD_PATH, nil);
10  end;