jak uruchomić program na panelu?

Jak uruchomić program na panelu - tak, żeby program był na cały panel?
Na razie kombinuję z czymś takim - ale efektmi się nie podoba

procedure TForm1.Button1Click(Sender: TObject);
var uchwyt : thandle;
begin
   ShellExecute(Handle, 'open', 'IEXPLORE.EXE', nil, nil, SW_MAXIMIZE);
   sleep(2000);
   uchwyt:= FindWindow(PChar('IEFrame'),nil);   
   Windows.SetParent(uchwyt, Form1.Panel1.Handle);
end;