如何判断delphi文本框输入的是数字

Question

如何判断delphi文本框输入的是数字,或者说怎么能让文本框只允许输入数字

Answer 1

try
  StrToInt('abc');
  ShowMessage('正常');
except
  ShowMessage('异常，不是数字');
  Exit;
end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
a:integer;
begin
if not (key in ['0'..'9',#8]) then
begin
a:=Application.MessageBox('请输入数字','提示信息',MB_ok);
if a=6 then
begin
end
else
begin
end;
key:=#0;
end
else
begin
end;
end;