function TControl.Perform(
  Msg: Cardinal;
  WParam: WPARAM;
  LParam: LPARAM
): LRESULT;
//如：Memo1.Perform(WM_HSCROLL, SB_LEFT, 0);

SendMessage(Memo1.Handle, WM_HSCROLL, MAKEWPARAM(SB_THUMBPOSITION, 50), 0); //滚动至此 
SendMessage(Memo1.Handle, WM_HSCROLL, SB_LEFT, 0); //左边缘 
SendMessage(Memo1.Handle, WM_HSCROLL, SB_RIGHT, 0); //右边缘 
SendMessage(Memo1.Handle, WM_HSCROLL, SB_PAGELEFT, 0); //向左翻页 
SendMessage(Memo1.Handle, WM_HSCROLL, SB_PAGERIGHT, 0); //向右翻页 
SendMessage(Memo1.Handle, WM_HSCROLL, SB_LINELEFT, 0); //向左滚动 
SendMessage(Memo1.Handle, WM_HSCROLL, SB_LINERIGHT, 0); //向右滚动

SendMessage(Memo1.Handle, WM_VSCROLL, MAKEWPARAM(SB_THUMBPOSITION, 50), 0); //滚动至此 50为位置 滚动到指定行号 
SendMessage(Memo1.Handle, WM_VSCROLL, SB_TOP, 0); //顶部 
SendMessage(Memo1.Handle, WM_VSCROLL, SB_BOTTOM, 0); //底部 
SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0); //向上翻页 
SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0); //向下翻页 
SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEUP, 0); //向上滚动 
SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0); //向下滚动

int GetScrollPos( 
  HWND hWnd,
  int nBar
);

var
  h, v: Integer;
begin
  h := GetScrollPos(Memo1.Handle, SB_HORZ);
  v := GetScrollPos(Memo1.Handle, SB_VERT);
  Caption := Format('水平数值=%d 垂直数值=%d', [h, v]);
end;

ShowScrollBar(Memo1.Handle,SB_HORZ,false); //隐藏MEMO水平滚动条
ShowScrollBar(Memo1.Handle,SB_VERT,false); //隐藏MEMO垂直滚动条

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if (GetWindowlong(Memo1.Handle, GWL_STYLE) and WS_VSCROLL) > 0 then ShowMessage('垂直滚动条显示'); 
  if (GetWindowlong(Memo1.Handle, GWL_STYLE) and WS_HSCROLL) > 0 then ShowMessage('水平滚动条显示'); 
end;