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