procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if not StringGrid1.Focused and (ACol=StringGrid1.Col) and (ARow=StringGrid1.Row) then
begin
StringGrid1.Canvas.Brush.Color := StringGrid1.Color;
StringGrid1.Canvas.FillRect(Rect);
end;
end;