[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.