procedure TForm1.Button1Click(Sender: TObject);
begin
with StringGrid1 do
begin
if (GetWindowLong(Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then
ShowMessage('ScrollBar vertical visible')
else
ShowMessage('ScrollBar vertical oculta');
if (GetWindowLong(Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then
ShowMessage('ScrollBar horizontal visible')
else
ShowMessage('ScrollBar horizontal oculta');
end;
end;