아래와 같이 처리 하시면 됩니다.. ^^
============================================================
procedure TForm1.btnUPClick(Sender: TObject);
begin
Memo1.Perform(WM_VSCROLL,SB_LINEUP,0);
end;
procedure TForm1.btnDOWNClick(Sender: TObject);
begin
Memo1.Perform(WM_VSCROLL,SB_LINEDOWN,0);
end;
============================================================
procedure TForm1.btnUPClick(Sender: TObject);
begin
Memo1.Perform(WM_VSCROLL,SB_LINEUP,0);
end;
procedure TForm1.btnDOWNClick(Sender: TObject);
begin
Memo1.Perform(WM_VSCROLL,SB_LINEDOWN,0);
end;