funcion recursiva para este codigo

[ingabraham]

necesito reducir este codigo. con una funcion.
el sgt codigo agrupa datos para cargarlos en combobox. para muchos combox con caracteristicas similares.

si alguien me puede ayudar

Código Delphi [-]


procedure TEstadistica.CargarDatosCombox;
begin

 CBDpto.Clear;
 CBDpto.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Clear;
   Sql.Add('Select DEPARTAMENTO as Dato From NACIMIENTOS Group By DEPARTAMENTO ');
   Open;
   If RecordCount <> 0 Then Begin
     First;
     While not eof do Begin
       CBDpto.Items.Add(fieldbyname('Dato').AsString);
       Next;
     End;
  End;
 End;
  CBDpto.Text  :='TODOS' ;


//==============================================================================

 CBMunicipio.Clear;
 CBMunicipio.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Clear;
   Sql.Add('Select MUNICIPIO as Dato From NACIMIENTOS Group By MUNICIPIO ');
   Open;
   If RecordCount <> 0 Then Begin
     First;
     While not eof do Begin
       CBMunicipio.Items.Add(fieldbyname('Dato').AsString);
       Next;
     End;
  End;
 End;
  CBMunicipio.Text  :='TODOS' ;

//==============================================================================

 CBAreaNacimiento.Clear;
 CBAreaNacimiento.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Clear;
   Sql.Add('Select AREA_NACIMIENTO as Dato From NACIMIENTOS Group By AREA_NACIMIENTO ');
   Open;
   If RecordCount <> 0 Then Begin
     First;
     While not eof do Begin
       CBAreaNacimiento.Items.Add(fieldbyname('Dato').AsString);
       Next;
     End;
  End;
 End;
  CBAreaNacimiento.Text  :='TODOS' ;


//============================================================================== y siguen con otros mismos dif campos
end;