memo1.Text

memo1.Text := memo1.Text + '/n' + Buffer;
  //定位Memo到底部，显示最新输入
  SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);