Новый визуальный компонент, производный от Memo

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Mem.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
static inline void ValidCtrCheck(TMem *)
{
   new TMem(NULL);
}
//---------------------------------------------------------------------------
__fastcall TMem::TMem(TComponent* Owner)
   : TMemo(Owner)
{
a=false;
}
 
void __fastcall TMem:: Change()
{
AnsiString L;
int n=Lines->Count;
for(int i=0;i<n;i++)
if(Lines->Strings[i]=="КЛЮЧ") {a=true; return;}
else a=false;
}
 
void __fastcall TMem:: KeyDown(Word&Key,Classes::TShiftState Shift)
{
if(Key==VK_F11)
{
if(a==true)  ShowMessage("Вводилось слово КЛЮЧ");
if(a==false) ShowMessage("НЕ Вводилось слово КЛЮЧ");
}
}
 
//---------------------------------------------------------------------------
namespace Mem
{
   void __fastcall PACKAGE Register()
   {
       TComponentClass classes[1] = {__classid(TMem)};
       RegisterComponents("Samples", classes, 0);
   }
}
//---------------------------------------------------------------------------

void __fastcall TMem :: Change()
{
   if(a) return; // если слово когда-то уже вводилось - уходим, нечего проверять
   a = (AnsiPos("КЛЮЧ", Lines->Text) > 0); // иначе - проверяем наличие слова в данный момент
}

void __fastcall TMem :: KeyDown(Word& Key, Classes::TShiftState Shift)
{
   if(Key==VK_F11)
   {
      if(a) ShowMessage("Вводилось слово КЛЮЧ");
      else ShowMessage("НЕ Вводилось слово КЛЮЧ");
   }
}