[델파이] 그리드 헤더 정렬

procedure TForm1.AdvcClickCell(Sender: TObject; ARow,ACol:Integer);
var
  bAscending : Boolean;
  strbuf : String;
begin
  if ARow > 0 then
    Exit;
  
  with Advc do
  begin
    if(SortSettings.Direction = sdAscending) then
      bAscending := False
    else
      bAscending  := True;
 
    //정렬
    SortSettings.Full := True;
    SortIndexes.Clear;
    SortIndexes.AddIndex(ACol,bAscending);
    QSortIndexed;
 
    SortSettings.Column := ACol;
    if bAscending then
      SortSettings.Direction := sdAscending
    else
      SortSettings.Direction := sdDescending
  end;
end;