Fehler in if Abfrage

[jfheins]

Probier mal:

Delphi-Quellcode:

if messagedlg ('Kategoriewert nicht vorhanden. Bitte ändern!', mtWarning, [mbYes], 0) = mrYes 
    then combobox1.SetFocus 
    else 
begin

  query10.ParamByName('kkat_bez').AsString := ComboBox1.Text; 
  query10.Open; 
  ComboBox3.Items.Add(query10.Fields[0].asstring); 
  query10.Close; 
  combobox3.ItemIndex:=0;

...