[Vladislav]

Есть действие OnClick работает на отлично.
При переносе этого действия в к примеру myThread.Execute выводит ошибку:

Incompatible types: 'TComponent' and 'TNewThread'

Вот на эту строку:

Код:

  R := TRegExp.Create(self);

(подключаю VBScript_RegExp_55_TLB).

Как это исправить ?

Заранее спасибо.

[lmikle]

Более подробный код приведи. Какого типа у тебя R?
Ну и uses нужных модулей в юните потока не зыбывай.

[Vladislav]

Код:

begin
  webmaster := true;
  List := TStringList.Create;
  List.Text := IdHTTP1.Get('http://site.ru');
  R := TRegExp.Create(TForm1.BitBtn1Click);
  R.Pattern := 'src=""';
  R.Multiline := true;
  R.IgnoreCase := true;
  R.Global := true;
  mc := R.Execute(List.Text) as MatchCollection;
  if mc.Count > 0 then
  begin
    m := mc[0] as Match;
    sm := m.SubMatches as SubMatches;
    Stream := TMemoryStream.Create;
    IdHTTP1.Get(sm[0], Stream); 
    CaptchaKey := sm[1];
    R := nil;
    m := nil;
    mc := nil;
    Stream.Position := 0;
{Работаем над картинкой}.
  end;
end;

Поток создаю в Дельфи File - New - Other - Thread Object.

[lmikle]

here: R := TRegExp.Create(TForm1.BitBtn1Click);
I'm not sure, that TBitBtn is correct parent.
Try to pass Nil there.

[Vladislav]

Попробовал поставил R := TRegExp.Create(R); тоже самое что и self как я понял.

Теперь другой вопрос: создаю поток он на Unit2. (File-Create-Other-Thread Object).
Не подскажите (по пунктам) как его использовать в Unit1 ?