TObjectList Sortieren

[Union]

Also entweder multiplizieren oder Du sortierst den String.

Delphi-Quellcode:

function TAnfrageItem.GetSortInt: LongInt;
begin
  Result:=StrToInt(FormatFloat('0000',FSortGruppe)*10000+FormatFloat('0000',FSort));
end;