delphi 使edit只能输入带小数点的数值或整数

procedure Tfrm_zdrw.Edit1KeyPress(Sender: TObject; var Key: Char);begin  if not   (((key>='0')   and   (key<='9'))   or   (key='.') or (key=#8))   then  begin    key:=#0;  end  else    if (pos('.', edit1.text)<>0) then     if  key='.'   then     begin      key:=#0;     end;end;