在delphi中如何设计一个只能录入数字的edit，想QQ帐号录入一样，谢谢

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (key in [#48..#57,#8]) then //#8是退格键,也可以加上#13回车键
begin
showmessage('只能输入数字');
key:= #0;
end;
end;

老兄啊,花了半个小时终于帮你做出来了
放两个东西就行了:1个Edit,1个按钮
双击按钮作一个button单击事件Button1Click,放入以下代码就行了
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,j:integer;
begin
s:=trim(edit1.Text);
for i := 1 to length(s) do
begin
j:=ord(s[i]);
if (j>47) and (j<58) then
begin
if i=length(s) then
begin
showmessage('你输入正确');
edit1.SetFocus;
end;
end
else
begin
showmessage('请输入数字');
edit1.Text:='';
edit1.SetFocus;
break;
end;
end;