如何限制TRichEdit的输入

Question

各位大哥大姐：
   我想限制TRichEdit中每行字符数目，我的代码如下：
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
    if(somecondition) then Key := #0;  //这样TRichEdit就不能再输入了
end;
对于英文，是可以做到限制输入的，但是中文就做不到了，请问怎么样才能做的限制中文呢？

Answer 1

var
  somecondition: Boolean;
  OldString: string;
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  if somecondition then
  begin
    RichEdit1.Text := OldString;
    RichEdit1.SelStart := Length(RichEdit1.Text);
  end
  else
    OldString := RichEdit1.Text;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  OldString := RichEdit1.Text;
  somecondition := True;
end;