Delphi中Edit输入控制必需为数字（2位小数）

procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);
var
  DotPos,Len:integer;
begin
  DotPos:=pos('.',(Sender   as   TEdit).Text);
  Len:=length((Sender   as   TEdit).Text);
  if key in ['0'..'9',#8,'.','+','-'] then
  begin
    if (key  in  ['+','-']) then
    begin
      //只能在光标处于第一的位置，才能输入'+'或者'-'
      if ((Sender as TEdit).SelStart>0) then
      begin
        key:=#0;
        exit;
      end;
      //'+'，'-'互斥
      if (pos('+',(Sender as TEdit).Text)>0) or (pos('-',(Sender as TEdit).Text)>0) then
      begin
        key:=#0;
        exit;
      end;
    end;
    if key in ['.'] then
    begin
      //只能输入一个'.'
      if (DotPos>0) then
      begin
        key:=#0;
        exit;
      end;
      //只能在'+','-'后面输入'.'
      if (pos('+',(Sender as TEdit).Text)>0) or (pos('-',(Sender as TEdit).Text)>0) then
        if ((Sender as TEdit).SelStart<=0) then
        begin
          key:=#0;
          exit;
        end;
        //小数点必须在最后两位
        if (DotPos<=0) and ((Sender as TEdit).SelStart<Len-2) then
        begin
          key:=#0;
          exit;
        end;
    end;
    if key in ['0'..'9'] then
    //小数点后面最多两位
    if (DotPos>0) and (DotPos<=Len-2) and ((Sender as TEdit).SelStart>=DotPos) then
      key:=#0 ;
  end
  else
    key:=#0;
end;