- baseup := 0;
- for i := 0 to Board.Count - 1 do begin
- if Board.Items[i].No = 0 then Inc(baseup);
- end;
- for i := 0 to Board.Count - 1 do begin
- Board.Items[i].No := Board.Items[i].No + baseup
- end;
- for i := 0 to Board.Count - 1 do begin
- if i <> Board.Items[i].No - 1 then begin
- TmpThreadItem := Board.Items[Board.Items[i].No - 1];
- Board.Items[Board.Items[i].No - 1] := Board.Items[i];
- Board.Items[i] := TmpThreadItem;
- end;
- end;