1:
2:

  Borderstyle := bsNone;
  WindowState := wsMaximized;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TFormScanner.ButtonMaxClick(Sender: TObject);
begin
  If Vollbild Then
  Begin
    Vollbild         := False;
    Self.WindowState := wsNormal;
    Self.BorderStyle := bsSizeable;
  End Else
  Begin
    Self.BorderStyle := bsNone;
    Self.WindowState := wsMaximized;
    Vollbild         := True;
  End;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

var
  l : longint;
  i : interger;
Begin
    l := GetWindowLong(Handle,GWL_STYLE);
    if (WS_CAPTION and l)>0 then
    begin
        if WindowState <> wsmaximized then
        begin
          // Fenster maximieren
          WindowState := wsmaximized ;
        end else
        begin
          // Volbild einschalten
          l := l and not WS_CAPTION ;
          l := l and not WS_BORDER ;
          SetWindowLong(Handle,GWL_STYLE, l);
          ClientHeight := Height+GetSystemMetrics(SM_CYCAPTION);
          WindowState := wsMaximized;
        end;
    end else
    begin
        // Vollbild ausschalten
        SetWindowLong(Handle,GWL_STYLE, l or WS_CAPTION or WS_BORDER);

        i:=Width-ClientWidth;
        ClientWidth := Screen.Width-i;
        i:=Height-ClientHeight;
        ClientHeight := Screen.Height-i;
        WindowState := wsMaximized;
    end;