Сбивается фокус на Scrollbox'e

[factually]

На форме ScrollBox и SpinGrid. На ScrollBox'e установлены св-ва: AutoMouseWheel = True, AutoScroll = True, Tracking h/v = true.
Если сначала прокручивать колёсиком, то всё норм прокручивается, но после клика на spingrid фокус сбивается с ScrollBox'a и колёсиком мыши больше не прокрутить. Как это исправить?

[evg_m]

1. кликнуть обратно на Scrollbox (вернуть фокус вручную)
2. найти подходящее Event и вернуть фокус(SetFocus) кому надо программно.

[factually]

Сообщение от evg_m

1. кликнуть обратно на Scrollbox (вернуть фокус вручную)
2. найти подходящее Event и вернуть фокус(SetFocus) кому надо программно.

1. при клике на скролл фокус не возвращается почему-то.
2. помогло, спасибо
Но возникла проблема, сбивается позиция скролла при SetFocus,e.
Пробую так:

procedure TForm4.StringGrid1Click(Sender: TObject);  var
i:integer;
begin
  I:=sScrollBox2.VertScrollBar.ScrollPos;
 sScrollbox2.SetFocus;
 sScrollBox2.VertScrollBar.Position:=I;
end;

Но скролл всё равно уходит вверх при клике на Striggrid.

[evg_m]

ЕСЛИ вам НЕ НАДО чтобы StringGrid вообще получал фокус, то
проще ЗАБЛОКИРОВАТЬ ему данную функцию
StringGrid.Enabled:=false;

ЕСЛИ на ScrollBox только и есть что StringGrid, то зачем он(ScrollBox)?
для прокрутки колесом таблицы
Для этого можно использовать OnMouseWell в StringGrid (насколько помню он там есть).