Hallo,
oder anstelle von FillRect > Rectangle mit einem in allen Richtungen vergrößertes Rect verwenden und dadurch die Linien übermalen
Delphi-Quellcode:
StringGrid1.Canvas.Pen.Color := clRed;
StringGrid1.Canvas.Rectangle(Rect.Left - 1,Rect.Top - 1,Rect.Right + 1,Rect.Bottom + 1);