VCL Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
grRect: TGridRect;
begin
grRect.Left := -1;
grRect.Top := -1;
grRect.Right := -1;
grRect.Bottom := -1;
StringGrid1.Selection := grRect;
end;