speicherung in der datenbank funktioniert immer noch nicht..

[r_kerber]

Versuche es doch mal mit mit einem UPDATE-Statement (ungetestet!):

Delphi-Quellcode:

var versflid :string;
begin
versflid:=adoquery1.fieldbyname('versuchs_id').AsString;
  if (tb_versuch_id.Text ='') then
      showmessage ('Bitte was eintragen.');

    with adoquery1 do
     begin
     close;
     sql.Clear;
     sql.Add('UPDATE dbo_Versuchsflaechen_ST');
     sql.Add('SET Versuchs_ID=' + QuotedStr (tb_versuch_id.Text));
     sql.Add('WHERE Versuchsfl_Bezeichnung =' + quotedstr(versflid));
     ExecSQL;
     end;

  end;