Problem mit TObject.Classname

[implementation]

Der Aufruf:

Delphi-Quellcode:

procedure TWdServer.WSIDCreate;
begin
  FWSID := NotifyToList(self);  
  // mit FWSID := NotifyToList(TObject(self)); hab ichs auch schon versucht
end;

und

Delphi-Quellcode:

type
  TServerList = array[0..1023] of TObject;
var
  ServerList: TServerList;

[...]

function NotifyToList(item: TObject): Word;
var i: Word;
begin
  ...
  ServerList[i] := item;
  ...
end;

Bei "ServerList[i] := item;" wird die AccessViolation ausgelöst.