delphi hotkey

[Praud]

написал хоткей для программы.

RegisterHotKey(Handle, id1, 0, VK_ESCAPE);

Все работает как я хочу, клавиша еск работает при не активном окне, НО!

Есть checkbox в программе который делает окно всегда верхним.

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked = True then Form1.FormStyle:=fsStayOnTop;
Edit3.SetFocus;


if checkbox2.Checked = False then Form1.FormStyle:=fsNormal;
Edit3.SetFocus

end;

После того, как нажимаешь галочку Esc перестает работать, и даже если ее убираешь она Esc тоже не работает. В чем причина?