Den Inhalt kompletten Inhalt eines Feldes in einer Combobox

[horst]

So funktioniert es nun, aber ich bekomme nur einen Eintrag angezeigt, obwohl 2 vorhanden sind.

Delphi-Quellcode:

procedure TForm1.Button14Click(Sender: TObject);
begin
  with abfrage do
  begin
    close;
    SQL.Text := 'SELECT * FROM hckategorie ORDER BY katname';
    open;
    if recordcount > 0 then
    begin
      ComboBox1.Items.Add(fieldbyname('katname').asstring);
    end;
  end;
end;