consulta en dbcombobox

[sergioperez]

hola tengo un problema quiero hacer una consulta y que el resultado me lo envie en un dbcombobox pero em marca error espero que me ayuden

Código Delphi [-]
Dbcombobox1.items.add(query1.Close;
query1.SQL.Clear;
query1.SQL.Add('SELECT Nombre from paciente');
query1.Open);

[ecfisa]

Hola Sergio.

Código Delphi [-]
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT NOMBRE FROM PACIENTE');
  Query1.Open;
  while not Query1.Eof do
  begin
    DBComboBox1.Items.Add(Query1.FieldByName('NOMBRE').AsString);
    Query1.Next;
  end;
  //...

end;

Saludos.