Das ginge, wenn das kein Record, sondern eine Klasse wäre. Ansonsten versuch es mal mit einem harten Cast.
Delphi-Quellcode:
function TForm1.compvoc(Item1, Item2: Pointer): integer;
begin
result := TChVoc(Item1).coeff;
end;
[edit] Ich bin jetzt nicht sicher, aber ich glaube, diese Klasse muss dann auch noch von TPersistent abgeleitet sein, diese Angabe ist allerdings ohne Gewähr. [/edit]