TList Sort funktioniert nicht

[iKilledKenny]

DeddyH hat Recht:

Delphi-Quellcode:

//...
type
  {*--- TfrmMain ---*} 
  TfrmMain = class(TForm)
  private
//...

implementation 

// sorts the given source-sets
function compareSources(item1, item2: Pointer): Integer;
begin
  // cast items to sets
  set1 := TStringList(item1);
  set2 := TStringList(item2); // <- Zugriffsverletzung
end;

// builds the data-list based on the given source-list
function TfrmMain.buildDataList(sourceList: TList): TList;
begin
  sourceList.Sort(compareSources);
end;
//...