TObjectList sortieren funktioniert nicht

[Brainstalker]

Hallo ich würde in meinem Projekt die TObjectList Items gerne sortieren. Das Problem ist das die Comparefunktion nicht will.
In der Liste sind TStringList Objekte abgelegt und da wollte ich nach dem ersten Eintrag sortieren.

Delphi-Quellcode:

function CompareStr(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText((Item1 as TStringList).Strings[0], (Item2 as TStringList).Strings[0]);
end;

Bei dieser Funktion meckert er immer bei Item1 as TStringList: Operator not applicable to this operand type. Wie so geht das denn nicht?

Freue mich über Antworten.