TRecVKUmsatzAusFVArtikel = class
  private
    FUnternehmenNr_ID : integer;
    FJahr_ID : integer;
    FUmsatz : real;
    ...
  public
    procedure Clear;
    ...
    property UnternehmenNr_ID: integer read FUnternehmenNr_ID write FUnternehmenNr_ID;
    property Jahr_ID: integer read FJahr_ID write FJahr_ID;
    property Umsatz: real read FUmsatz write FUmsatz;
  end;

  TLstVKUmsatzAusFVArtikel = class
  protected
    FLst: TObjectList;
  private
    function GetRecords(index: integer): TRecVKUmsatzAusFVArtikel;
  public
    constructor Create;
    destructor Destroy; override;
    ...
    function Add(iRec: TRecVKUmsatzAusFVArtikel): TRecVKUmsatzAusFVArtikel;
    ...
    procedure SortBYUmsatz;
    property Records[index: integer]: TRecVKUmsatzAusFVArtikel read GetRecords; default;
  end;

implementation

function CompareByUmsatz(Item1 : Pointer; Item2 : Pointer) : Integer;
var
  Rec1, Rec2: TRecVKUmsatzAusFVArtikel;
begin
  
  Rec1:= TRecVKUmsatzAusFVArtikel(Item1);
  Rec2:= TRecVKUmsatzAusFVArtikel(Item2);

  // Now compare by string
  if customer1.Umsatz > customer2.Umsatz then
    Result := 1
  else
   if customer1.Umsatz = customer2.Umsatz then
     Result := 0
   else
     Result := -1;

end;

function TLstVKUmsatzAusFVArtikel.Add(iRec: TRecVKUmsatzAusFVArtikel): TRecVKUmsatzAusFVArtikel;
begin
  FLst.Add(iRec);
  result := iRec;
end;


procedure TLstVKUmsatzAusFVArtikel.SortBYUmsatz;
begin
 Flst.Sort(CompareByUmsatz);
end;