Delphi undeclared identifier 'key' hatası alıyorum.

Merhaba arkadaşlar delphi de bir program hazırlıyorum ancak bir texbox a sadece rakam girilmesini istiyorum bunun içinde

procedure CheckText(Sender:TEdit; var Key:Char);
begin
If not (Key in ['0'..'9','.',#8, #13]) then
Key := #0;
If Key = '.' then
begin
If Pos('.', Sender.Text) > 0 then
Key := #0;
end;
end;

bunun gibi bir kod kullanıyorum ancak delphi kod çalıştırınca undeclared identifier 'key' hatası veriyor buradaki 'key kodunu tanımıyor. Bilgisi olan anlayan varsa yardım ederse çok sevinirim.'

prosedurde herhangi bir sorun yok.
ancak deger donderdigi icin statik bir deger atayamazsiniz.
ornegin checkText(Edit1,12);

asagidaki verdigim sekilde kullanirsaniz herhangi bir problem yasamazsiniz.

var
AKey : Char;
begin
AKey := Chr(65);
CheckText(Edit1,AKey);

iyi forumlar