procedure TForm1.FormCreate(Sender: TObject); begin BorderStyle := bsNone; WindowState := wsMaximized; end;