Не совсем понял что за линии. Вот код, который прорисовывает клетку с координатами (2;2) на синем фоне белым текстом:
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
const
ColIndex = 2;
RowIndex = 2;
begin
if (ACol = ColIndex) and (ARow = RowIndex) then
begin
StringGrid1.Canvas.Brush.Color:=clBlue;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.Font.Color:=clWhite;
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
end;
end;
Думаю, сможете так как это нужно вам.