cxGrid 에서 입력된 내용들을 버튼을 눌러서 오름 차순으로 정렬 및 내림차순으로 정렬 할려고 합니다.

procedure TfrmMain.cxBtn_UpSortClick(Sender: TObject);
var
loop1,loop2 : integer;
Imsi : TcxGridColumn;

begin
  for loop1 := 0 to cxGrid_View.DataController.RecordCount - 2 do
    begin
      for loop2 := 1 to cxGrid_View.DataController.RecordCount - 1 do
        begin
          if cxGrid_View.DataController.Values[loop1,cxGrid_Sum] <
          cxGrid_View.DataController.Values[loop2,cxGrid_Sum]  then
            begin
              Imsi := cxGrid_View.DataController.Values[loop1,cxGrid_Sum];

              cxGrid_View.DataController.Values[loop1,cxGrid_Sum] :=
              cxGrid_View.DataController.Values[loop2,cxGrid_Sum];

              cxGrid_View.DataController.Values[loop2,cxGrid_Sum] := Imsi;
            end; // if
        end; //for loop2
    end;  //for loop1
end;

굳이 함수를 만들지 않고 그냥 버튼 클릭 이벤트에서 처리를 할려고 했습니다.

저런 식으로 for문 2개를 돌리면서 비교하면서 할려구 하는데.. 잘 안되네요.

제가 잘못된 방향으로 나가고 있는지 어떤 부분을 놓치고 있는건지 잘 모르겠습니다.

그래서 선배님들에게 조언을 구할려구 합니다.