Ich tu das immer mit 'GetScrollPos'...
etwa so...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var pos,min,max:Integer;
begin
GetScrollRange(RichEdit1.Handle,sb_vert,min,max);
pos:=GetScrollPos(RichEdit1.Handle,sb_vert);
showmessage(inttostr(pos)+' '+inttostr(min)+' '+inttostr(max));
end;
die Variable 'pos' gibt dann einen wert den man mit den bisherigen vergleichen kann.
Hoffe es klappt.