delphi 让子窗体显示最大化

procedure TForm2.FormCreate(Sender: TObject);
begin
 perform(WM_SIZE,SIZE_MAXIMIZED,0);
end;