How to Add File to Documents Menu 

//
// Add file to Documents menu
//
procedure TForm1.Button1Click(Sender: TObject);
var
 S : PChar;
begin
 If Edit1.Text <> '' Then
  Begin
   S := StrAlloc(Length(Edit1.Text)+1);
   StrPCopy(S, Edit1.Text);
   SHAddToRecentDocs(SHARD_PATH, S);
   Edit1.Text := '';
   StrDispose(S);
  End;
end;