[MrDiG]

Сообщение от NumLock

-вызывать их в методе Execute
-смотреть конструктор класса TRegExp. могу лишь предположить (TRegExp не знаю такого) что:
TRegExp = class(TComponent)
в то время как:
TThread = class(TObject)
ну и тогда:
Reg := TRegExp.Create(Form1);
ну или как там

Спасибо! Помогло Reg := TRegExp.Create(Form1). Скомпилировалось, но во время работы идёт ошибка First chance exception at $7C812AFB. Exception class EOleSysError with message 'Не был произведен вызов CoInitialize'. Process Project1.exe (3136)

TRegExp - это для регулярок. Находиться в VBScript_RegExp_55_TLB

Код:

TRegExpProperties = class(TPersistent)
  private
    FServer:    TRegExp;
    function    GetDefaultInterface: IRegExp2;
    constructor Create(AServer: TRegExp);
  protected
    function Get_Pattern: WideString;
    procedure Set_Pattern(const pPattern: WideString);
    function Get_IgnoreCase: WordBool;
    procedure Set_IgnoreCase(pIgnoreCase: WordBool);
    function Get_Global: WordBool;
    procedure Set_Global(pGlobal: WordBool);
    function Get_Multiline: WordBool;
    procedure Set_Multiline(pMultiline: WordBool);
  public
    property DefaultInterface: IRegExp2 read GetDefaultInterface;
  published
    property Pattern: WideString read Get_Pattern write Set_Pattern;
    property IgnoreCase: WordBool read Get_IgnoreCase write Set_IgnoreCase;
    property Global: WordBool read Get_Global write Set_Global;
    property Multiline: WordBool read Get_Multiline write Set_Multiline;
  end;

UPD. Разобрался. CoInitialize(nil); в начало Execute. ActiveX в Uses