use IBQuery;
procedure RellenarCombo( DS:TIBQuery; var cbCombo:TComboBox);
var
iX : integer;
begin
cbCombo.Items.Clear;
cbCombo.Items.Add('TODOS');
If DS.Recordcount <> 0 then
begin
DS.First;
While not DS.eof do
Begin
cbCombo.Items.Add(DS.Fields[iX].AsString);
DS.Next;
end;
end;
cbCombo.ItemIndex := 0;
end;
DMDatos.ConsultaSql('Select DEPARTAMENTO as Dato From NACIMIENTOS Group By DEPARTAMENTO ');
RellenarCombo(DMDatos.IBConsultaSql,CBDpto);