[bulldog]

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

Код:

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;

Вопрос снят