1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

type
  TNumEdit = class(TEdit)
  private
    { Private declarations }
    vComma:boolean;
    vDecAfterComma:byte;
  protected
    { Protected declarations }
    procedure KeyPress(Sender: TObject; Var Key: Char); override;
  public
    { Public declarations }
    Constructor Create(Owner:TComponent); override;
  published
    { Published declarations }
//    property Text default '1,00';
    property Alignment default taRightJustify;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('OwnComponents', [TNumEdit]);
end;


Constructor TNumEdit.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  Alignment:=taRightJustify;
//  Text:='1,00';
  vComma:=false;
  vDecAfterComma:=0;
end;


procedure TNumEdit.KeyPress(Sender: TObject; var Key: Char);
begin
//Logic missing
  case Key of
    '0'..'9': ;
    '.': ;
    ',': ;
  else
    Key:=#0;
    MessageBeep(-1);
  end;

  inherited KeyPress(Sender,Key);
end;					

1:
2:
3:

  :
  KeyPress(var Key : char); 
  :					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TFloatEdit = class(TEdit)
  private
    { Private declarations }
    FDecNumber: Integer;
    FWrittenDecNumbers: Integer;
    FCommaSet: Boolean;
    procedure SetDecNumber(DecNumber: Integer);
    function GetDecNumber: Integer;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    procedure Exit; override;
  published
    { Published declarations }
    property DecNumbers: Integer read GetDecNumber write SetDecNumber default 2;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('OwnComponents', [TFloatEdit]);
end;

{ TFloatEdit }

constructor TFloatEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  SetDecNumber(2);
  Text:='1,00';
end;

procedure TFloatEdit.Exit;
var
  vText, vText2: string;
  i: Integer;
begin
  inherited Exit;

  FWrittenDecNumbers := 0;
  FCommaSet := false;

  vText := Text;
  vText2 := '';
  for I := 0 to length(vText) - 1 do
  begin
    if (ord(vText[i]) > 48) and (ord(vText[i]) < 57) then
      vText2 := vText2 + vText[i]
    else
    if vText[i] = ',' then
    begin
      vText2 := vText2 + vText[i];
      FCommaSet := true;
    end
    else
    if vText[i] = '.' then
    begin
      vText2 := vText2 + ',';
      FCommaSet := true;
    end;

    if FCommaSet then
    begin
      if (ord(vText[i]) > 48) and (ord(vText[i]) < 57) and (FWrittenDecNumbers < GetDecNumber) then
      begin
        vText2 := vText2 + vText[i];
        inc(FWrittenDecNumbers);
      end;
    end;
  end;

  if FWrittenDecNumbers < GetDecNumber then
  begin
    for I := FWrittenDecNumbers to GetDecNumber do
      vText2 := vText2 + '0';
  end;

  Text := vText2;
end;

function TFloatEdit.GetDecNumber;
begin
  result := FDecNumber;
end;


procedure TFloatEdit.SetDecNumber(DecNumber: Integer);
begin
  FDecNumber := DecNumber;
end;