Use SenMesage function with EM_LINESCROLL message: procedure TForm1.Button2Click(Sender: TObject); begin SendMessage(Memo1.Handle,EM_LINESCROLL,0,-1); end; Related chapters Fonts
