Выводить только измененные строки. Перед каждой строкой записывать номер строки в исходном тексте

void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
///////////////////////////////////////////////////////
//активация столбцов в стрингриде и редактирование ////
///////////////////////////////////////////////////////
       //AnsiString  znak = "mtInformation";
         int str = StringGrid1->Row; //на какой строке стоит курсор
         int kol = StringGrid1->Col; //и в какой колонке
 
  //................. проверка на изменения в тексте ...........................
 
  if (strgrdK!=kol || strgrdS!=str || izmenen_text != StringGrid1->Cells[strgrdK][strgrdS])
  
     if (izmenen_text != StringGrid1->Cells[strgrdK][strgrdS]   )
     {
        if (strgrdS==StringGrid1->RowCount)//если была удалена последняя строка
            strgrdS = strgrdS -1;
                                     /*
        if(mrYes==MessageDlg("Направени са изменения в текста""\n""\n"" Стар текст ...""\n"
        + izmenen_text+"\n""\n"" Нов текст ...""\n"
        +StringGrid1->Cells[strgrdK][strgrdS]+"\n""\n"
        "Съхрани промяната?", mtWarning,
        TMsgDlgButtons() << mbNo << mbYes, 0))
                                      */ // и условие else
       StringGrid1->Cells[23][strgrdS] = "OnEdit";
}   
 izmenen_text = StringGrid1->Cells[kol][str];
     strgrdK = kol;
     strgrdS = str;
}