[C++ Builder] TRichEdit. Нажать ЛКМ на строку.

void __fastcall TForm5::RichEdit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    if (RichEdit1->Lines->Strings[0] == Sender)
    {
        RichEdit2->Lines->Add("Нажали");
    }
}

__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
RichEdit1->Lines->Add("Привет");
 
}

if (RichEdit1->Lines->Strings[0] == Sender)
    {
        RichEdit2->Lines->Add("Нажали");
    }

void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  bool pressed;
  if (RichEdit1->Lines->IndexOf(RichEdit1->Lines->Strings[0])==pressed) {
    RichEdit2->Lines->Add("Нажали");
  }
}

void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y) {
  int line = dynamic_cast<TRichEdit *>(Sender)->ActiveLineNo;
  switch(line) {
    case 0:
      RichEdit2->Lines->Add( "Нажали строчку " + IntToStr(line) );
      break;
    default: ;
  }
}