Wenn du Zeiger vergleichen möchtest, dann vergleiche doch auch ruhig Zeiger.
Delphi-Quellcode:
procedure TTreeviewService.SortByModell;
begin
if @fSortFunction = @SortByName then // läuft!
fSortFunction := SortbyNameDesc
else
fSortFunction := SortByName;
end;