Еще раз про StringGrid...
Заранее всем спасибо!
StringGrid1->Canvas->Pen->Color = clRed;
StringGrid1->Canvas->Rectangle(Rect.Left - 1, Rect.Top - 1, Rect.Right + 1, Rect.Bottom + 1);
или так:
StringGrid1->Canvas->Pen->Color = clRed;
StringGrid1->Canvas->MoveTo(Rect.Left - 1, Rect.Top - 1);
StringGrid1->Canvas->LineTo(Rect.Right + 1, Rect.Top - 1);
StringGrid1->Canvas->MoveTo(Rect.Left - 1, Rect.Bottom + 1);
StringGrid1->Canvas->LineTo(Rect.Right + 1, Rect.Bottom + 1);