为什么这个函数调用就出错呢？？？(100分)

在下面的函数中，每次执行到isp.GetDirectCallerSID(SID);时，系统总是报“灾难性错误”

function TCoolObject.GetDirectCaller: String;
var
isp : ISecurityProperty;
SID : PSID;
bResult : Boolean;
sName : array[0..255] of char;
sDomainName : array[0..255] of char;
NameUse : SID_NAME_USE;
NameLength : DWORD;
do
mainLength : DWORD;
begin
try
isp := ObjectContext as ISecurityProperty;
/////////////////////////////////
/////////////////////////////////
isp.GetDirectCallerSID(SID);
NameLength := 255;
do
mainLength := 255;
bResult := LookupAccountSid(nil, SID, sName, NameLength,sDomainName,do
mainLength, NameUse);
if (bREsult) then
Result := sName;
finally
isp.ReleaseSID(SID);
end;
end;

ObjectContext是个空指针，或这个函数在某个线程中执行，而此线程未调用CoInitiliaze过程