How to add a file to the document menu

uses ShellAPI, ShlOBJ;

procedure AddToStartDocumentsMenu(sFilePath: string);
begin
  SHAddToRecentDocs(SHARD_PATH, PChar(sFilePath));
end;