delphi中Tedit输入金额数字

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);   //控制edit1的输入数字
var
  p:Integer;
begin
  //限制只能输入数字，小数点，负号
  if not (Key in ['0'..'9', '.','-',#8, #13]) then
  begin
    Key := #0;
  end;
  //如果是小数，小数点前面只能输入一个零
  if key = '0' then
  begin
    if (LeftStr(Edit1.Text,1) ='-') and (MidStr(Edit1.Text,2,1) = '0') and (Length(Edit1.Text) = 2) then
    begin
      Key:=#0;
    end
    //如果第一位是零，则零只能输入一次
    else if (LeftStr(Edit1.Text,1) = '0') and (Length(Edit1.Text) = 1) then
    begin
      Key:=#0;
    end
  end
  //限制只能输入一个小数点,且只能在第二个位置开始
  else if Key = '.' then
  begin
    if Edit1.SelStart = 0 then
      Key := #0;
    p := Pos('.', Edit1.Text);
    if p > 0 then
      Key := #0;
  end
  //限制只能在第一个，且只能输入一个负号
  else if Key = '-' then
  begin
    if Edit1.SelStart > 0 then
      Key := #0;
    p := Pos('-', Edit1.Text);
    if p > 0 then Key := #0;
  end;
end;