[Lazarus-es] Combobox

[Lissy Amador]

Hola!
 Estoy lidiando con un combobox, quiero que me muestre los datos de una
de mis columnas de mi BD, pero no me muestra ningun item, que estoy haciendo 
mal?

procedure TForm2.ComboBox1Change(Sender: TObject);
begin   
  Combobox1.Clear;
  zquery1.SQL.Text:= 'SELECT * FROM empresas';
  zquery1.Open;
  while not zquery1.EOF  do
  begin
   Combobox1.Items.Add(ZQuery1.FieldByName('nombre').AsString);
   zQuery1.Next;
  end;
  zQuery1.Close;   
end;