代码(50分)

procedure Tfrm_main.N4Click(Sender: TObject);

begin
if assigned(frm_dataselect) then
begin
frm_dataselect.setfocus;
end
else
begin
frm_dataselect:=tfrm_dataselect.create(panel1);
frm_dataselect.parent:=panel1;
Frm_dataselect.Align :=alclient;
Frm_dataselect.Visible :=true;
Frm_dataselect.BorderStyle :=bsNone;
end;
end;

我这里为什么完成不了我要的功能

代码没有问题！完成不了什么功能啊！