funcion recursiva para este codigo

[[Caral]]

Hola

Código Delphi [-]
procedure TEstadistica.CargarDatosCombox;
begin
 CBDpto.Clear;
 CBDpto.Items.Add('TODOS');
 CBMunicipio.Clear;
 CBMunicipio.Items.Add('TODOS');
 CBAreaNacimiento.Clear;
 CBAreaNacimiento.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Text:= 'Select DEPARTAMENTO, MUNICIPIO, AREA_NACIMIENTO '+
              ' From NACIMIENTOS Group By DEPARTAMENTO, MUNICIPIO, AREA_NACIMIENTO ';
   Open;
   If RecordCount <> 0 Then Begin
   While not eof do Begin
   CBDpto.Items.Add(fieldbyname('DEPARTAMENTO').AsString);
   CBMunicipio.Items.Add(fieldbyname('MUNICIPIO').AsString);
   CBAreaNacimiento.Items.Add(fieldbyname('AREA_NACIMIENTO').AsString);
   Next;
   End;
   End;
  End;
  CBDpto.Text  :='TODOS' ;
  CBMunicipio.Text  :='TODOS' ;
  CBAreaNacimiento.Text  :='TODOS' ;
end;

Saludos