Tastatur per Button sperren und wieder entsperren

[LokutusvB]

Vielen Dank, das schaue ich mir mal in Ruhe an.

Zusatz:
nach einigen mißlungenen Versuchen bin ich zum Delphi Standard zurück. Ich habe in der Form die Eigenschaft "KeyPreview" auf "True" gesetzt und die Ereignisse "FormKeyDown" und FormKeyPressed" bearbeitet.

Code:

procedure TFormS.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if btnUnterschreiben.Checked then key := 0;
end;

procedure TFormS.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if btnUnterschreiben.Checked then key := #0;
end;

Für meine Zwecke funktioniert es sehr gut. So lange die Checkbox True ist, werden die Tastureingaben nicht weiter bearbeitet. Trotzdem Danke dir für deine Hilfe.