Tastatur sperren ??

[Vader]

hallo,

ich müßte bei meinen Prog. für eine Sequenz bzw kurz die Tastatur
sperren das keine Eingaben gemacht werden können.
Jetzt hab ich das so probiert aber es funzt nicht.

Code:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
BlockInput(true); //   sperren
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
BlockInput(false);   //  entsperren
end;

er sagt beim compilieren : undefinierte Bezeichnung BlockInput,
muß ich irgeneine Variable definieren oder im use eine Apifunktion
reinschreiben


mfg vader