Use a program to sort the control's taborder

Procedure fixtaborder (const parent: twincontrol); var CTL, L: integer; List: tlist; begin list: = tlist. create; try for CTL: = 0 to parent. controlcount-1 do begin if parent. controls [CTL] Is twincontrol then begin if list. count = 0 then l: = 0 else begin with parent. controls [CTL] Do for L: = 0 to list. count-1 do if (top <tcontrol (list [l]). top) or (Top = tcontrol (list [l]). top) and (left <tcontrol (list [l]). left) Then break; end; List. insert (L, parent. controls [CTL]); fixtaborder (twincontrol (parent. controls [CTL]); end; for CTL: = 0 to list. count-1 do twincontrol (list [CTL]). taborder: = CTL; finally list. free; end;