Не могу написать комментарии для функции поиска, не могу разобраться...

void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
  int found, start, end; // Èíèöèàëèçàöèÿ ïåðåìåííûõ
  start = Memo1->SelStart;
  if (Memo1->SelLength)
    start += Memo1->SelLength;
    end = Memo1->Text.Length() - start;
  if(FindDialog1->Options.Contains(frMatchCase))
    found = start + Memo1->Text.SubString(start+1, end).Pos(FindDialog1->FindTextA);
  else
    found = start + Memo1->Text.SubString(start+1, end).LowerCase().Pos(FindDialog1->FindTextA.LowerCase());
  if(found != start)
    {
     Memo1->SetFocus();
     Memo1->SelStart = found-1;
     Memo1->SelLength = FindDialog1->FindTextA.Length();
    }
  else ShowMessage("Òåêñò " + FindDialog1->FindTextA + " íå íàéäåí");
}

void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
int found, start, end;
start = Memo1->SelStart;
if (Memo1->SelLength)
start += Memo1->SelLength;
end = Memo1->Text.Length() - start;
if(FindDialog1->Options.Contains(frMatchCase))
found = start + Memo1->Text.SubString(start+1, end).Pos(FindDialog1->FindTextA);
else
found = start + Memo1->Text.SubString(start+1, end).LowerCase().Pos(FindDialog1->FindTextA.LowerCase());
if(found != start)
{
Memo1->SetFocus();
Memo1->SelStart = found-1;
Memo1->SelLength = FindDialog1->FindTextA.Length();
}
else ShowMessage("Текст " + FindDialog1->FindTextA + " не найден");
}