高手们帮忙看一下我的代码哪里出错了，万分感激！我的全部分只有这么多了，没法了！(20分)

这段是RXRICHEDIT中的查找文本代码：
Procedure TMainForm.FindDialogFind(Sender: TObject);
Var
FoundAt, StartPos, ToEnd: integer;
SearchFlag: TSearchTypes;
Begin
If frMatchCase In FindDialog.Options Then
SearchFlag := SearchFlag + [stMatchCase]; <---提示这里出错
If frWholeWord In FindDialog.Options Then
SearchFlag := SearchFlag + [stWholeWord]; <---提示这里出错
StartPos := RichEdit.SelStart + RichEdit.SelLength;
ToEnd := Length(RichEdit.Text) - StartPos;
FoundAt := RichEdit.FindText(FindDialog.FindText, StartPos, ToEnd,
SearchFlag); <---提示这里出错
If FoundAt <> -1 Then
Begin
RichEdit.SetFocus;
RichEdit.SelStart := FoundAt;
RichEdit.SelLength := Length(FindDialog.FindText);
End
Else
Begin
MessageBox(Handle, csFindError, csAppName, MB_OK Or MB_ICONWARNING);
End;
End;
我在执行这句时，它提示以下信息：
[Error] MainUnit.pas(534): Incompatible types: 'TSearchType' and 'TRichSearchType'
请问这是为什么，是类定义错了吗？应该怎么解决？

[stMatchCase]; --->stMatchCase

[]是什么意思

不甩我，大家可怜一下吧

问题我已经解决，请问一下为什么我用RXRICHEDIT编译时单击右键却不会弹出我所设定的菜单呢？

你应该在richedit的属性上设置它的popmenu为你想要弹出的popmenu

接受答案了.