راهنمایی در مورد نوشتن یک تابع در دلفی

[countesss]

سلام خدمت دوستان عزیز

من میخوام یه تابع بنویسم که برای EDITBOX های که خاصیت Number Only در اونها فعال است در صورتی که به جای وارد کردن عدد ، حرف وارد کردیم یه Hint باز بشه و پیغام دلخواه رو نشون بده من خودم این تابعو نوشتم ولی مشکل اینه که کلا هر ورودی که دارم چه عدد ، چه حروف Hint ظاهر میشه میخواستم راهنمایی کنید ببینم مشکل از کجاست

procedure nHint(hHint:string;AEdit:TEdit);
var
point:TPoint;
Key:Char;
begin
if AEdit.NumbersOnly = true then
    begin
    if not(CharInSet(Key,['0'..'9',#8]))  then 
  begin
    form1.BalloonHint1.Description := hHint;
    point.X := AEdit.Width div 2;
    point.Y := AEdit.Height div 1;
    form1.BalloonHint1.ShowHint(AEdit.ClientToScreen(point));
    Abort; 
  end
  else
    begin
    form1.BalloonHint1.HideHint;
  end;
    end;
end;

procedure TFrame1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
nHint('Number Only',Edit1);
end;

[admin]

سلام و درود.
کدتون رو به شکل زیر تصحیح کنید :

procedure nHint(hHint:string;AEdit:TEdit;var Key: Char);
var
point:TPoint;
begin
 if not( Key In ['0'..'9', #8, ^V] ) Then // #8 = backspace
    begin
        Form2.BalloonHint1.Description := hHint;
    point.X := AEdit.Width div 2;
    point.Y := AEdit.Height div 1;
    Form2.BalloonHint1.ShowHint(AEdit.ClientToScreen(point));
    Abort;

  end
  else
    begin
      Form2.BalloonHint1.HideHint;
  end;

end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

nHint('Number Only',Edit1,Key);
end;

موفق و موید باشید