1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TEANScan.Edit2Exit(Sender: TObject);
begin
if table2.locate('Artikelnr', Edit1.Text, []) then begin
        with table2 do begin
        Table2.Edit;
        // hier soll der Wert eines bestehenden Feldes von Table2 mit einer neueingabe addiert
        // werden und das Ergebnis zurück in das Feld der Tabelle Tabelle2 geschrieben werden
        Table2.Post;
        end;
        end;
    end;					

1:

Table2.fieldbyname('NameDesFeldes').asinteger:=Table2.fieldbyname('NameDesFeldes').asinteger+strtoint(edit1.text);					

1:

Table2.fieldbyname('NameDesFeldes').asstring:=Table2.fieldbyname('NameDesFeldes').asstring+edit1.text;					

1:

Table2.fieldbyname('NameDesFeldes').asstring:=inttostr(strtoint(Table2.fieldbyname('NameDesFeldes').asstring)+strtoint(edit1.text));					

1:

 table2.fieldbyname('gewünschtes Feld').asInteger :=  table2.fieldbyname('gewünschtes Feld').asInteger + strtoint(edit2.text);					

1:
2:

table1feldname.value := table1feldnamedeszuadierendenfeldes + strtoint(edit1.text); //falls das bereits vorhandene feld schon ein integer ist
table1feldname.value.asinteger := table1feldnamedeszuadierendenfeldes + strtoint(edit1.text); // wenn es sich nicht um ein integerfeld handelt