OLE Windows xp Error

I have an application developed in Delphi, when running only on computers with Windows XP I am having the following error:

OLE error 80131513, ClassID: {3A8B6B96-4F23-4EB5-B4B1-243BFBC41A39}

Follow My Code:

  CoInitialize(nil);
  try
     DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;
  except on e : exception do
  begin
    showmessage('Erro: '+ e.message);
    //WinExec( 'regasm LarWS.dll /tlb:LarWS.tlb',SW_HIDE);
    //Screen.Cursor := crHourGlass;
    //Sleep(3000);
    //Screen.Cursor := crDefault;
    //DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;
  end;
  end;

Follows the code of LARWS_TLB.

I have already updated the .NET Framework to version 4.0.3. The strange thing is that as already mentioned this problem occurs only on computers with Windows XP.