// Die Prozedur addiert die Eingaben von Edit1 und Edit2
// und zeigt das Ergebnis bei jedem Tastendruck sofort in Edit3 an.
// Texteingaben werden dabei als "0" interpretiert und erzeugen
// nicht die Fehlermeldung "..ist kein gültiger Integerwert"

// Getestet mit D4 unter Win98

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Addieren(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.OnChange:=Addieren;
edit2.OnChange:=Addieren;
end;

procedure TForm1.Addieren(Sender: TObject);
begin
edit3.text:=inttostr(strtoint64def(edit1.text,0)+strtoint64def(edit2.text,0));
end;