procedure TControl.SetTextBuf(Buffer: PChar);
begin
Perform(WM_SETTEXT, 0, Longint(Buffer));
Perform(CM_TEXTCHANGED, 0, 0);
end;

怎样才能模拟手工输入一个字符串去覆盖原来的字符串？－－这样才能undo的