Memo1.DoubleBuffered:=True; // 使用双缓冲，减少TMemo字符串数据闪烁

Memo1.Lines.BeginUpdate;  // 加入该行保证Memo中不会出现任何闪烁

Memo1.SelStart:=memo1.GetTextLen;

Memo1.SelText:='abc123[luther.gliethttp]';

If memo1.GetTextLen >= Memo1.MaxLength then

Memo1.Clear;

SendMessage(Memo1.Handle,EM_LINESCROLL,0,Memo1.Lines.Count); // 如果不加入BeginUpdate,那么滚动条将自动跳到结尾,如果使用了BeginUpdate,那么这里必须设置滚动条

Memo1.Lines.EndUpdate;