Problem mit Datensatz speichern

[Borschti]

Also so setze ich meine Abfrage zusammen:

Delphi-Quellcode:

SQL := 'Select packpf.AdrNr, packpf.BelegNr, packpf.Tour, packpf.Liefertermin,';
  SQL := SQL + ' pacpos.ID, pacpos.Lagerort, pacpos.Platz, pacpos.Anzahl, pacpos.Istmenge,';
  SQL := SQL + ' pacpos.Sollmenge, pacpos.Restmenge, pacpos.Artnr, packpf.Activ, packpf.BelegartID,';
  SQL := SQL + ' packpf.Datum, pacpos.belegnr,';
  SQL := SQL + ' pacpos.Summeanzahl, pacpos.Reihenfolge, pacpos.Einheit';
  SQL := SQL + ' from packpf inner join pacpos on packpf.belegnr = pacpos.belegnr';

  DateTime := DateTimeToStr(DateTimeP.DateTime);
  DTDay := Copy(DateTime, 1, 2);
  DTMonth := Copy(DateTime, 4, 2);
  DTYear := Copy(DateTime, 7, 4);
  DTTIme := '00:00:00.000';

  DTGes := DTMonth+ '/' + DTDay + '/' + DTYear + ' ' + DTTime;

  SQL := SQL + ' WHERE(packpf.Activ = '+QuotedStr('o')+') and (packpf.Tour = '+QuotedStr(ComboBox.Items[ComboBox.ItemIndex])+') and (packpf.Liefertermin = convert('+QuotedStr(DTGes)+', sql_timestamp))';

  case RadioGroup.ItemIndex of
    0: SQL := SQL + ' Order by packpf.Tour, pacpos.Lagerort, pacpos.Platz, pacpos.artnr ';
    1: SQL := SQL + ' Order by packpf.Tour, pacpos.ArtNr';
    2: SQL := SQL + ' Order by packpf.Tour, packpf.AdrNr, pacpos.ArtNr';
  end;

  Query.SQL.Add(SQL);
  Query.Open;

Mit dem Code in meinem vorherigen Post will ich Felder meines berechneten Feldes füllen, will aber halt nicht wirklich

Edit: ReadOnly der Query steht auf False

mfg
Alex