Problem mit TObject.Classname

[implementation]

In meiner Funktion habe ich einen Zeiger auf ein TObject.
Ich möchte dort den Klassennamen als String auslesen.

Delphi-Quellcode:

function NotifyToList(item: PObject): Word;
var i: Word;
begin
  while ItemUsed[i] do Inc(i);
  ItemUsed[i]:=true;
  ServerList[i] := item;
  Result := i;
  OutputLine('WSID '+IntToHex(i,4)+' is stored for a '+item^.ClassName);
end;

Doch beim Aufruf hält das Programm mittendrin an.
Es bricht nicht ab. Es stoppt einfach nur.
Es passiert nichts weiter.
Wenn ich
item^.Classname entferne, läuft das Programm weiter, aber natürlich wird nur "WSID 0001 is stored for a " ausgegeben.

Wo liegt das Problem bei TObject.Classname?
Was gibt es für Alternativen?

----------[EDIT]------------

Was ist das für'n S*#%§ß?
Nachdem ich den Teil wieder weggenommen hatte, habe ich ihn nun noch einmal wieder eingefügt.
Und? Was dann?
Es hat funktioniert!!!
Und warum musste ich das jetzt erst posten, damit das funzt?
Das müllt doch nur die DP voll...

Problem seltsam gelöst.