三个简单问题每个20分.在线等待(60分)

我现在大写一个记事本程序
遇到难题
请大侠们帮忙！
1.RichEdit控件中的CANUNDO方法如何用？
我在程序中用richedit1.canundo:=true;
不通过
2.记事本有贴粘的功能，如何检测到贴粘板上数据？就是在本记事本程序中我没有经过复制或剪切的话
一旦在别的窗口复制或剪切到内容过后，粘贴板上应该就有数据了，这个时候就应该把粘贴菜单的ENABLE：=TRUE了
如何才能实现检测
3。”查找下一个“这个功能如何写代码？

一个问题20分.在线等待

我也想知道？

怎么没有人回答呀

查找下一个代码：
var
FoundAt:LongInt;
StartPos,ToEnd:Integer;
begin
with richedit1 do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
if blOption then
FoundAt :=FindText(pcString, StartPos, ToEnd,[stMatchCase])
else
FoundAt :=FindText(pcString, StartPos, ToEnd, [stWholeWord]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(pcString);
end;
end;
end;

1, if richedit1.canundo then richedit1.undo;

with richedit1 do
if HandleAllocated then SendMessage(Handle, EM_UNDO, 0, 0);

1.richedit 的 canundo 属性为只读，所以不能赋值,只能这样用
if richedit.canundo then
richedit.undo;
2.if Clipboard.HasFormat(CF_TEXT) then ----如果为文本，其他格式HasFormat帮助中有
Enabled :=true
else
Enabled :=false;
3.已经发送

接受答案了.