TStringList.CustomSort wird nicht angesprochen?

[Schucki]

Hallo,

ich versuche eine TStringList mit einer eigenen Sortierung zu verarbeiten, leider wird die Function nicht angesprungen. Was hab ich vergessen?
Auf...

Delphi-Quellcode:

   ...
   ShowMessage('Sortiere...');
   ---

...ist ein Breakepoint, der nicht auslöst.

Gruß Frank

Delphi-Quellcode:

function ResultCustomCompare(List: TStringList; Index1, Index2: Integer): Integer;
var
  s1, s2: string;

begin
  ShowMessage('Sortiere...');
  s1 := GetStrFromColumn(3, List[index1]) + GetStrFromColumn(4, List[index1]);
  s2 := GetStrFromColumn(3, List[index2]) + GetStrFromColumn(4, List[index2]);
  if s1 < s2 then
    Result := -1
  else
  if s1 > s2 then Result := 1
  else
    Result := 0;
end;


procedure TfrmMain.LogClick(Sender: TObject);
var strlResult: TStringList;

begin
    strlResult := TStringList.Create;
try
    strlResult.CustomSort(ResultCustomCompare);
    strlResult.Sorted := True;
    strlResult.LoadFromFile('data.txt');
    ShowMessa(strlResult.Text);
finally
    strlResult.Free;
end;
end;