procedure TForm1.Actualiza( Valor1, Valor2:string );
var
Nro1, Nro2 : real;
begin
Nro1 := StrToFloatDef( Valor1, 0 );
Nro2 := StrToFloatDef( Valor2, 0 );
Edit3.Text := FloatToStr( Nro1+Nro2 );
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Actualiza( Edit1.Text, Edit2.Text );
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
Actualiza( Edit1.Text, Edit2.Text );
end;