procedure Tfrmsystem.Edit8KeyPress(Sender: TObject; var Key: Char);

begin

  if (key<>#46) and ((key < #48) or (key > #57)) and (key <> #8) then//如果输入不是数字或小数点（#46代表小数点）

  begin

    key:=#0; //取消输入的内容（#0代表空值）

  end;

end;