UPDATE - Typ-Fehler

[stoermi]

Hallo!
Folgendes Problem:

Fehlermeldung:

Zitat:

Keine Übereinstimmung der Typen im Ausdruck

Die Quelle:

Delphi-Quellcode:

procedure TBuchungAnzeigenForm.BtnAendUebClick(Sender: TObject);
var rab: single;
    s: ShortString;
begin
  if Application.MessageBox('Sollen die Daten übernommen werden?', 'Frage', 36) = 6 then
  begin
    s := cbRabatt.Items[cbRabatt.ItemIndex];
    Delete(s, Length(s), 1);              //Prozentzeichen entfernen
    rab := StrToFloat(s) / 100;           //in Gleitkomma umrechnen und durch 100 teilen
    with BuchungenQuery do
      begin
        close;
        sql.clear;
        sql.add('UPDATE daten\buchungen.db SET Umbuch = :pumbuch, Rabatt = :prabatt WHERE id = :pid');
        ParamCheck := true;
        ParamByName ('pumbuch').AsInteger := cbBuch.ItemIndex;
        ParamByName ('prabatt').AsFloat := rab;
        ParamByName ('pid').AsInteger := myZimmer.buchung.buchId;
        ExecSQL;
      end;
    myZimmer.buchung.umbuch := cbBuch.ItemIndex;       //Hier tritt der Fehler auf
    myZimmer.buchung.rabatt := rab;

Datenbank-Spalten:
Umbuch ist Integer(kurz)
Rabatt ist Numeric
ID ist Integer

Die Eigenschaft buchId ist Integer.

Wo könnte dieser Fehler herrühren???