Lieferantennummern in Combobox überprüfen

[superstar025]

wo muss ich das denn hier ändern??

Delphi-Quellcode:

query1.Open;
  while not query1.eof do begin
     ComboBox1.Items.Add(query1.Fields[0].asstring);
     query1.Next;
  end;