Forms Delphi

Title: How to show the mainform as a dialog with a mainmenu
procedure TMain.FormCreate(Sender: TObject);
begin
//...
Windows.SetMenu(Handle, MainMenu1.Handle);
end;