Выделение ячеек

Code:

procedure TForm1.GridClean(Sender: TObject);

var hGridRect: TGridRect;

begin

  hGridRect.Top := -1;

  hGridRect.Left := -1;

  hGridRect.Right := -1;

  hGridRect.Bottom := -1;

  (Sender as TStringgrid).Selection := hGridRect;

end;

Code:

var MyGrid: TStringGrid;

...

GridClean(MyGrid);