[Electronic_Arts]

Что это такое разве так не легче??

Код:

var
f1,f2,f3: real;

...
...
...
//это для каждого компонента TEdit
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var 
k:integer;
begin
if Edit1.Text='0' then
  if not(key in [',',#8]) then Edit1.Text:='';
if key in['0'..'9',',',#8] then 
  begin
  if key=',' then
    begin
    if Edit1.Text='' then key:=#0;
      For k:=1 to Length(Edit1.Text) do
      begin
      if Edit1.Text[k]=',' then key:=#0;
      end;
    end;
  end else key:=#0;
end;

...
...

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text<>'' then
begin
f1:=strtofloat(edit1.Text);
edit3.Text:=floattostr(f1+f2+f3);
end;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text<>'' then
begin
f2:=strtofloat(edit2.Text);
edit3.Text:=floattostr(f1+f2+f3);
end;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
if edit3.Text<>'' then
begin
f3:=strtofloat(edit3.Text);
edit3.Text:=floattostr(f1+f2+f3);
end;
end;