窗体最大化

procedure TForm1.FormShow(Sender: TObject);
begin
  Form1.WindowState:= wsMaximized
end;