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

delphi中怎么判断memo滚动条滑到底部了？
本人新手，请大家帮帮忙吧！ 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;