funcion recursiva para este codigo

[ingabraham]

Código Delphi [-]

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);

listo, pal k le sirva