Cannot change Visible in OnShow or OnHide

[Pluto]

Hallo,
ich versuche die Windows Message WM_Size abzufangen, dann das Fenster auf
nicht visible zu setzen, speziellen Code auszuführen und dann das Fenster
wieder sichtbar zu machen. Dazu folgenden Code:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSize(var Message: TWMSize); message WM_SIZE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMSize(var Message: TWMSize);
begin
  try
    Visible := false;
    ShowMessage('Message WM_Size');
  finally
    Visible := true;
  end;
  inherited;
end;

Beim Start des Programmes verschwindet Form1,
ShowMessage wird angezeigt, soweit ok.
Klick auf OK von dem ShowMessage Fenster bringt aber dann
Fehlermeldung:
"Cannot change Visible in OnShow or OnHide"

Wo liegt mein Fehler?