[friz]

Код:

var
  Form1: TForm1;
  flag:boolean;
implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
begin
if (pos('yo',memo1.Text)>0) and (not flag)then begin showmessage('!'); flag:=not flag; end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag:=false;
end;

p.s. код было лень форматировать