Ich habe es jetzt anders gelöst. So funzt es.
Delphi-Quellcode:
procedure TMain.Button1Click(Sender: TObject);
begin
adoquery1.active:=false;
adoquery1.sql.Clear;
adoquery1.sql.text := 'insert into anpassd (anpasser) values ('''+fitteredit.Text+''')';
adoquery1.ExecSQL;
gridrefresh('anpassd','Anpasser',177);
end;
Danke für die Hilfe