Combobox bleibt leer

[superstar025]

nachdem ich auf button zum löschen geklickt habe führe ich folgenden code aus

Delphi-Quellcode:

combobox1.clear;
query1.ParamByName('DISP_NR').AsString := form8.ComboBox1.Text;
     query1.ParamByName('gueltig_ab').AsString := form8.maskedit3.Text;
     query1.Open;
     while not query1.eof do begin
     ComboBox1.Items.Add(query1.Fields[0].asstring);
     query1.Next;