Hallo Steven,
du kannst das Event OnClickSort() deines Grids zum Sortieren der Spalten verwenden:
Delphi-Quellcode:
procedure TForm1.AdvStringGrid1ClickSort(Sender: TObject; ACol: Integer);
begin
with Sender as TAdvStringGrid do
SortByColumn(ACol);
end;
Du musst vorher noch im Object Inspector die SortSettings ändern: Show und NormalCellsOnly müssen auf True gesetzt werden. Das Ergebnis mit deinen Testdaten sieht für mich vernünftig aus.
Gute Nacht