delphi中如何判断memo滚动条滑到底部了

delphi中怎么判断memo滚动条滑到底部了？
本人新手，请大家帮帮忙吧！
------解决方案--------------------

var

  si: TScrollInfo;

begin

  si.cbSize := SizeOf(si);

  si.fMask := SIF_ALL ;

  GetScrollInfo(mmo1.Handle, SB_VERT, si);

  if (si.nPos + si.nPage = si.nMax + 1) then

  begin

    ShowMessage('滚动条到达底部');

  end;

begin;

SB_VERT获取垂直滚动条信息，其他参数请搜索   GetScrollInfo