Поиск определенного текста на экране

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Windows, Classes, SysUtils, Forms, Controls, Dialogs, ExtCtrls, Menus;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    MenuItem1: TMenuItem;
    PopupMenu1: TPopupMenu;
    Timer1: TTimer;
    TrayIcon1: TTrayIcon;
    procedure FormActivate(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  Str: TStringList;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
//действия при старте программы
procedure TForm1.FormActivate(Sender: TObject);
begin
    Form1.Hide; //прячем форму
    Str := TStringList.Create; //создаём список строк
    TrayIcon1.Show; //показываем иконку в трее
    Timer1.Enabled := true //запускаем таймер
end;
 
//процедура для контекстного меню для иконки в трее
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  TrayIcon1.Hide; //скрываем иконку в трее
  Form1.Close //закрываем программу
end;
 
//процедура при срабатывании таймера
procedure TForm1.Timer1Timer(Sender: TObject);
var i: integer; //счётчик строк
begin
  if FileExists('d:\log.txt') //если файл существует,
    then Str.LoadFromFile('d:\log.txt') //то скопировать его в список строк
    else Exit; //иначе выйти из процедуры досрочно
  //...если не вышли из процедуры, то...
  for i := 0 to Str.Count - 1 do //сканируем строки
    if pos('umail', Str.Strings[i]) > 0 //если в строке есть целевое слово 'umail',
      then begin //то...
        //вместо нижеследующих  действий Вам нужно создать нужные Вам действия
        //например, по отсылке нажатия клавиши <Tab> в выбранное Вами окно
        Timer1.Enabled := false; //останавливаем таймер
        Str.Destroy; //уничтожаем список строк
        ShowMessage('UMAIL!'); //выводим сообщение
        Form1.Close //после реакции пользователя закрываем программу
      end
end;
 
end.