[Harima Hario]

1) В Компоненте TMemo со временем появляется разный текст (неединоразово, а частями через какое-то рандомное время). Мне необходимо при обнаружении слова, допустим VSE выполнить следующее действие

Код:

image2.visible:=true;

Пробовал реализовать, но не получается.

2) В Компоненте TMemo уже загружен весь текст, теперь мне необходимо сохранить определенный промежуток, начиная со значка $ и по слово VSE, это я делаю посредством следующей процедуры:

Код:

procedure TForm1.Button_save_to_fileClick(Sender: TObject);
var
  A, B: Integer;
begin
  if SaveDialog1.Execute then
  begin
    A := Pos('$', Memo.Text);
    B := Pos('VSE', Memo.Text) - A;
    with TStringList.Create do
    begin
      Text := Copy(Memo.Text, A, B);
      SaveToFile(SaveDialog1.FileName);
      Free;
    end;
    ShowMessage('Done! file path: '+saveDialog1.FileName)
  end;
end;

Проблема в следующем: в этом промежутке попадаются строки в следующем формате:
PAGE000001000
PAGE000001012
И т.д. как мне сделать так, чтобы этих строк не было в текстовом файле?

Заранее спасибо за ответы.