procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if gdSelected in State then
  with StringGrid1.Canvas do
  begin
    Font.Color := clBlack;
    Brush.Color := $0ec2ff;
    FillRect(Rect);
    TextOut(StringGrid1.DefaultColWidth*ACol+3,
      StringGrid1.DefaultRowHeight*ARow+4, StringGrid1.Cells[ACol, ARow]);
  end;
end;