ShellExecute ( Application.Handle , 'RUNAS', '/user:Администратор Notepad', 0, 0, SW_SHOWNORMAL);
CreateComObject(CLSID_SHELLLINK)
Форма .. .отпадает.Форму можно "внедрить" используя Parent.
...
tsDatail: TTabSheet;
...
procedure TMainFM.tsDatailShow(Sender: TObject);
begin
if FilmDatailFM = nil then begin
FilmDatailFM := TFilmDatailFM.Create( Application );
FilmDatailFM.Parent := tsDatail;
end;
FilmDatailFM.Show;
end;