[Carmelo Cash]

Gracias Neftali, quedó así, y aprendí a usar los Tags.

Hay algo como los Tags para el código en el programa?
(please no me verdugueen)

Código Delphi [-]
procedure  TEdiniFrm.CargarSecciones;
var
i:Integer;
begin
  RxMDSecciones.Active:=True;
  RxMDSecciones.EmptyTable;
  with RxMDCompleto do begin
    first;
    while not eof do begin
      if RxMDCompleto.FieldByName('Tipo').AsInteger=1 then begin
        RxMDSecciones.Append;
        for i := 0 to RxMDCompleto.FieldCount - 1 do begin
          RxMDSecciones.Fields[i].Value:= RxMDCompleto.Fields[i].Value;
        end;
        RxMDSecciones.Post;
      end;
      next;
    end;    // while
  end;    // with
 RxMDSecciones.SortOnFields('Orden_Seccion');
end;