Загрузка фрэйма из DLL

procedure AddFrame(ApplicationHandle, ParentHandle: THandle); stdcall;
external 'DLLFrame.dll';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
AddFrame(Application.Handle, Panel1.Handle);
end;

procedure AddFrame(ApplicationHandle, ParentHandle: THandle); stdcall;
var
Frame1: TFrame1;
AppHandle: THandle;
begin
AppHandle := Application.Handle;
Application.Handle := ApplicationHandle;
Frame1 := TFrame1.Create(Application);
Frame1.ParentWindow := ParentHandle;
SetParent(Frame1.Handle, ParentHandle);
Frame1.Align := alClient;
Frame1.Visible := True;
Application.Handle := AppHandle;
end;
 
exports
AddFrame;

var
  MyFrameClass: TFrameClass;
  MyFrame: TFrame;
..
 
  MyFrameClass := GetClass('TFrame1');
  MyFrame := MyFrameClass.Create(Panel1);
  MyFrame.Parent := Panel1;

frame:=TFrame3.Create(sFrameBar1);
frame.Parent:= sFrameBar1;
form2.SetParentComponent(frame);
form2.Show;

function load(h: thandle;com:tcomponent): tform; stdcall;
begin
handle := application.handle;
application.handle := h;
application.CreateForm(TForm4, form4);
// form4.SetParentComponent(com); - пытался прям тут ставить парента
result := form4;
application.handle := handle;
end;

procedure TForm1.sFrameBar1Items0CreateFrame(Sender: TObject;
var Frame: TCustomFrame);
var
form: TForm;
begin
Frame := TFrame3.Create(sFrameBar1);  // frame3 - создан в конструкторе хоста. просто пустой фрэйм чтоб был. на него потом будем грузить форму
Frame.Parent := sFrameBar1;
form := load(application.Handle, form1);
form.Show;
form.SetParentComponent(Form1);
end;