1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

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;					

1:

if Application.MessageBox('Sollen die Daten übernommen werden?', 'Frage', (MB_YES + MB_NO) = IDYES then					

1:

if Application.MessageBox('Sollen die Daten übernommen werden?', 'Frage', 36) = 6 then