Was ist hier falsch ?

[Intruder]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
If Checkbox1.Checked = true then
   begin
   ShowMessage ('OK');
   Form1.Hide;
   end;
end;
end.

Die Message OK kommt noch, aber das fenster verschwindet nicht, was ist falsch ?