菜鸟求教，各位前辈请路过看下，多谢

初学者求教，各位前辈请路过看下，谢谢
procedure TForm1.Edit1Change(Sender: TObject);
var
edt:string;
begin
edt:=rightstr(edit1.Text,1);
  if not edt in ['0'..'9'] then
begin
  showmessage('您输入的不是数字，请重新输入')
end;

end;

end.


 if not edt in ['0'..'9'] then
这句编译不过。。。请问应如何改

[解决办法]
edt是字符串而不是字符。
应该响应OnKeyPress
[解决办法]

Delphi(Pascal) code

var  C: Char;begin  C := edt[1];  if not (C in ['0'..'9']) then
[解决办法]
在Edit的onkeypress事件中写上
if not(key in ['0'..'9',#13, '.']) then key:=#0;
没必要用showmessage提示，用多了客户一般都会烦的