Files Delphi

Title: How to add a file to the document menu
uses ShellAPI, ShlOBJ;
procedure AddToStartDocumentsMenu(sFilePath: string);
begin
SHAddToRecentDocs(SHARD_PATH, PChar(sFilePath));
end;