Условие:
отображение в первой панели полосы состояния текущих координат курсора в текстовом редакторе, которые хранятся в свойстве CaretPos компонента Memo1:
Memo1->CaretPos.Y + 1 //задает номер строки в окне редактора
Memo1->CaretPos.X + 1 //задает номер позиции в строке
Текущие координаты должны отображаться при любом перемещении курсора, происходящем при использовании как клавиатуры, так и мыши.
void _fastcall TForm2::Memo1Click(TObject *Sender)
{
StatusBar1->Panels->Items[0]->Text = Memo1->CaretPos.Y + 1;
StatusBar1->Panels->Items[0]->Text = Memo1->CaretPos.X + 1;
}