не появляется Showmodal из потока

[bulldog5293]

Всем привет, вопрос возник т.к. оббычно запускались, а при таком раскладе нет

var
  st: TStringStream;
  Str3: AnsiString;
  step: byte;
  new2: TStringList;
  a:string;
    pipecs: string;
    i:integer;
begin
  St := TStringStream.Create;
begin
  IdHTTP1.get('сайт', st);
  If Pos('n-слово', st.datastring) > 0 then
//тут идёт парсинг
//удалён для облегчения кода
  step := 2;
  try
    a := Str3;
    new2 := TStringList.Create;
    Form2.image1.Canvas.TextOut(10, 10, a);
    Form2.ShowModal;
    pipecs := Form2.edit1.text;
    except    
  end;

[SNUPY]

А при дебаге видно, что указатель до него не доходит? Т.к. возможно какая-нибудь ошибка там... а из-за try она не вылетает.

[Stilet]

а из-за try она не вылетает.

Верно. Автор, пройди пошаговку.

[FaTaL]

Из потока при обращении к VCL желательно использовать метод Syncronize
Например пишешь процедуру выше своего кода:

procedure ShowModalForm;
begin
Form2.ShowModal;
end;

А в своём коде ниже вызываешь её так (отрывок)

.........
  try
    a := Str3;
    new2 := TStringList.Create;
    Form2.image1.Canvas.TextOut(10, 10, a);
    Syncronize (ShowModalForm);
    pipecs := Form2.edit1.text;
    except 
.........

[bulldog5293]

FaTaL спс за пример, мне просто нужно было обращаться через TBitMap и в uses подключить Graphics. Вопрос снят