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