[Lazarus-es] combobox

[Lissy Amador]

Ayuda !ALguien que sepa como usar un combobox
este es mi codigo per nada

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