//Passage en plein écran :
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.BorderStyle := bsNone;
Form1.WindowState := wsMaximized;
end;
//Retours en mode fenêtre :
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.WindowState := wsNormal;
Form1.BorderStyle := bsSizeable; //Ou bsSingle
end;