Pointer TList

[totti14]

Hallo,
ich verstehe folgenden Pointer Vergleich nicht:

Delphi-Quellcode:

procedure AddToUniqueList(ACode: Pointer; UniqueSortedCodeList: TList);
var l,m,r: integer;
begin
  l:= 0;
  r:= UniqueSortedCodeList.Count-1;
  m:= 0;
  while r >= l do begin
    m:= (l+r) shr 1;
    if ACode < UniqueSortedCodeList[m] then    // << [dcc32 Fehler] scanner.pas(862):   E2015 Operator ist auf diesen Operandentyp nicht anwendbar
      r:= m-1
    else if ACode > UniqueSortedCodeList[m] then
      l:= m+1
    else
      exit;
  end;
  if (m < UniqueSortedCodeList.Count) and (ACode > UniqueSortedCodeList[m]) then
    inc(m);
  UniqueSortedCodeList.Insert(m,ACode);
end;

ACode und das result von UniqueSortedCodeList[] sind doch beides Pointer ?
Mal abgesehen vom Sinn und Zweck des Vergleichs den ich auch nicht verstehe

Hat da jemand ne Idee zu ?

Danke

Totti