edit-Wert als float in Tabelle speichern

[tom_po]

Ich möchte jetzt noch bei Klick des Button1 den Wert, den ich im edit1 eingebe hinzuaddieren zum bereits bestehenden Wert (feld "stock") des feldes "code" (=combobox1.text) der tabelle "stockfabric"

mein jetziger code ist so:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.DateTime;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, eingang, datum) '
              + 'values (:code, :eingang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('eingang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := dt;
    ExecSQL;
  end;
  begin
  dbisamquery4.SQL.Clear;
  dbisamquery4.sql.Add('update stockfabric set stock = '+edit1.Text+' where code = '+quotedstr(combobox1.Text));
  dbisamquery4.ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

das heisst, ich schaffe es, edit1 zu übernehmen, ich möchte ihn jedoch hinzuaddieren zum bestehenden wert des feldes "stock", das auch den datatyp float hat!