Wert in Datenbank schreiben

[omata]

Das sieht soweit richtig aus.

Du solltest FieldByName benutzen...

Delphi-Quellcode:

procedure TForm.Loesungpruefen;
var Faktor : integer;
    Save : boolean;
begin
  Save:=false;
  if Edit1.Text = AdoQuery.FieldByName('Fremdsprache').AsString then
  begin
    img_true.visible := true;
    img_false.visible := false;
    Faktor := 1;
    Save := true;
  end
  else begin
    if Messagedlg(AdoQuery.FieldByName('Deutsch').AsString + 
                  ' heißt auf Englisch ' + 
                  AdoQuery.FieldByName('Fremdsprache').AsString, 
                  mtConfirmation, [mbOK], 0) = mrok then
    begin
      img_true.visible := false;;
      img_false.visible := true;
      Faktor := -3;
      Save := true;
    end;
  end;
  if Save then 
  begin
    AdoQuery.Edit;
    AdoQuery.FieldByName('Bewertung').AsInteger := 
      AdoQuery.FieldByName('Bewertung').AsInteger + Faktor;
    AdoQuery.Post;
    AdoQuery.Next;
    deutsch;
  end;
end;

Wie sehen deine Connection-Einstellungen aus?