Нумерация выделенного текста в Memo

void __fastcall TForm::N78Click(TObject *Sender)
{
   int i,x;
   x =0;
   for (i = 0; i < Memo1->Lines->Count+1; i++) {
     x=x+1;
 
    Memo1->Lines->Strings[i]=IntToStr(x)+"."+ Memo1->Lines->Strings[i];
 
   }
}

    int start = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart, 0);
    int finish = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart + Memo1->SelLength, 0);
    for(int i = start; i <= finish; i++)
    {
        Memo1->Lines->Strings[i] = IntToStr(/* start - */ i + 1) + "." + Memo1->Lines->Strings[i];
    }

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TStringList *selTEXT = new TStringList;
    selTEXT->Text = Memo1->SelText;
 
    for(int i = 0; i < selTEXT->Count; ++i )
        selTEXT->Strings[i] = IntToStr(i + 1) + ") " + selTEXT->Strings[i];
 
    Memo1->SelText = Trim(selTEXT->Text);
 
    delete selTEXT;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    int start = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart, 0);
    int finish = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart + Memo1->SelLength, 0);
    for(int i = start, j = 1; i <= finish; i++)
    {
        Memo1->Lines->Strings[i] = IntToStr(j++) + "." + Memo1->Lines->Strings[i];
    }
}
//---------------------------------------------------------------------------