Du kannst es doch so machen:
Delphi-Quellcode:
case SortNach of
Höhe : x:=1;
Breite : x:=2;
Preis : x:=3;
end;
bla;
if Data[j-1,x] < Data[j,x] then swap
So kannst du dann übergeben, nach was sortiert werden soll.
Erwarte das Beste und bereite dich auf das Schlimmste vor.