StringGrid

var
Rect: TGridRect;
begin

// Left e Top é a célula inicial
Rect.Left := 0;
Rect.Top := 0;

// Right e Bottom é a célula final
Rect.Right := 4;
Rect.Bottom := 4;

StringGrid1.Selection := Rect;

end;