програмное скроллирование listbox

[alaken]

Доброго времени суток.
Нужно програмно скроллировать компонент TListBox и сохранить выделенный элемент в нем, я к тому что оперирование ItemIndex не подходит в моем случае.
Пробовал метод ScrollBy, никаких результатов не получил...

Если кто сталкивался с такой ситуацией прошу поделиться решением.

Приложение для операционной системы windows.
Lazarus 1.0.8
FPC 2.6.2

[Light13]

Код: Выделить всё

uses
  windows, LMessages;
...
  SendMessage(ListBox.Handle, LM_VSCROLL, SB_LINEDOWN, 0);
...
  SendMessage(ListBox.Handle, LM_VSCROLL, SB_LINEUP, 0);