Sprawdzanie pozycji scrolla

Jak sprawdzić, czy np. przesunięto pionowy scroll na sam dół?

W zdarzeniu przesunięcia scrolla sprawdzić czy jego aktualna pozycja = pozycja maksymalna.

A co jeśli chodzi o cały komponent np. RichEdit, który nie ma zdarzenia od przesuwania scrolla i w ogóle?

Udało mi się stworzyć coś takiego:

var
  min, max: Integer;
  info: TScrollInfo;
begin
  GetScrollInfo(RichEdit1.Handle, SB_VERT, info);
  min := info.nPos;
  max := info.nMax;
  if min = max then
    //Przesunięto;
end;

Tylko teraz w jakim zdarzeniu w RichEdit to umieścić? No i nie mam pewności czy działa...

Nie wiem czy dobrze kombinuje, ale może spróbuj w
Timerze o niskim Intervale albo najlepiej to w wątku.

A jak to ruszyć w wątku, bo nie za bardzo wiem jak?

Poczytaj: Wątki

Coś raczej kiepsko z tą moją wcześniejszą funkcją bo działa, ale jak najadę na scrolla, a on jest na samej górze to wtedy wyskakuje komunikat, że jest na dole, a nie jest. Próbowałem zamienić info.nMax z info.nMin, ale niestety też nie działa...