难题，高手请进

Question

在Tpanel上创建窗体，代码如下：
function TBaProdAsk.openwindow(Apanel: TWinControl; flag: string): TForm;
var
  formclass: tformclass;
  form: TForm;
  ls_window: string;
begin
  ls_window := flag;
  formclass := tformclass(findclass(ls_window));
  form := formclass.Create(nil);
  form.BorderStyle := bsNone;
  Height := form.Height;
  Width := form.Width;
  form.Parent := Apanel;
  form.Align := alClient;
  form.Show;
  Result := form;
end;当运行到form.parent:=Apanel时报错，
错误为：Access volilation at address 77F99A5C in module 'ntdll.dll'.
write of address 00404DC9
请指点问题所在

Answer 1

当运行到form.parent:=Apanel时报错，
你Apanel Create了没有？

Answer 2

Apanel是作参数传给函数的，肯定早就创建了

Answer 3

试试把FORMdock到PANEL如何？
APanel.DockSite := true;
form.Dock(APanel,Rect(0,0,APanel.width,APanel.Height)）

Answer 4

form:=formclass.create(apanel);
form.parentwindow:=apanel.handle;
form.Align := alclient;
form.show;