TStringList.CustomSort wird nicht angesprochen?

[Delphi.Narium]

Delphi-Quellcode:

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

begin
    strlResult := TStringList.Create;
try
    strlResult.Sorted := false;
    // Erst die Datei laden
    strlResult.LoadFromFile('data.txt');
    // dann sortieren.
    strlResult.CustomSort(ResultCustomCompare);
    ShowMessa(strlResult.Text);
finally
    strlResult.Free;
end;
end;