[Страдалецъ]

Код:

type
  TObjThread = class(TThread)
  private
    sObj: IXMLNode;
    { Private declarations }
  protected
    procedure Execute; override;
    constructor Create(nObj: IXMLNode);
  end;