เขียน Function ดักให้ใส่ข้อมูลตัวเลข [Delphi]

{ตัวอย่างการใช้งาน TEdit ร่วมกับ Event OnKeyPress}

{Event}
procedure TF_cashsetting.edtAmountKeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in [#8, '0'..'9']) then
 begin
    ShowMessage('กรุณาใส่ตัวเลข');
    Key := #0;
 end;
end;
{Event}

{ อีกหนึ่งตัวอย่าง }

if not (Key in ['a'..'z','A'..'Z','0'..'9',#8,#128]) then Key := #0 ;