Title: Scroll a MemoUse SenMesage function with EM_LINESCROLL message:procedure TForm1.Button2Click(Sender: TObject);begin SendMessage(Memo1.Handle,EM_LINESCROLL,0,-1);end;