[angvelem]

Код, конечно, замечательный - особенно эта строка:

Код:

  tmr4.Enabled:=True;

легко сокращается:

Код:

procedure TForm1.tmr4Timer(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to mmo1.Lines.Count-1 do
    if (pos('CODE', mmo1.Lines.Strings[i]) > 0) then
       edt1.Visible := True
    else if  (pos('GOODBYE', mmo1.Lines.Strings[i]) > 0) or (pos('MENU', mmo1.Lines.Strings[y1]) > 0) then
        edt1.Visible := False;
end;