Ups, vollkommen übersehen. Dann geht aber das hier:
Delphi-Quellcode:
type TPStats = ^TStats;
...
function TKeywordStats.Get(Index: Integer):TStats;
var p:TStats;
begin
result:= TPStats(FKeywordList.Items[Index])^;
end;
@Unwissender:
Das dürfte eigentlich nicht gehen, wegen Typinkompatibilität. FKeywordList.Items[i] ist nämlich vom Typ pointer.