Add a file to the document menu in delphi

// Add a file to the document menu

uses ShellAPI, ShlOBJ;

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