Fórum Dica para campos do tipo decimal. TEdit soh aceita Números. #322376

procedure DigitaCurrency(Sender: TObject; var Key: Char);
var
  lib: boolean;
begin
  lib:= true;
  if (not(key in[´0´..´9´, 8]))then
  begin
    lib := false;
    if (key = ´,´) then
      if (Pos(´,´,(Sender as TEdit).Text)>0) then
        lib := false
      else
        lib := true;  
  end;
  if not lib then
  begin
    MessageBeep(0);
    key := 0;
  end;
end;

DigitaCurrency(Sender, Key);