StringGrid и курсор в ячейке

[RgnRok]

Доброго времени суток, проблема наверника до ужаса бональна, но прошу помощи
Есть StringGrid в ячейку которого программно заносятся данные

void __fastcall TForm2::StringGrid1SetEditText(TObject *Sender, int ACol,
      int ARow, const AnsiString Value)
{
//...
 AnsiString strr=((TStringGrid*)Sender)->Cells[ACol][ARow];
 char *ptr=strr.c_str();
//Дальше этот массив char'ов изменяется и снова заносится в ячейку
 ((TStringGrid*)Sender)->Cells[ACol][ARow]=ptr;

Загвостка в том, что после отработки процедуры, занесенный текст в ячейке становится выделенным, а мне нужно чтобы курсор находился после текста в ней.
Как можно это сделать?
Заранее спасибо