AnsiString S;
    int startpos;
    if (FSelPos == 0) {
        FindDlg->Opations = FindDlg->Options-[frFindNext];
        if(Options == frFindNext) {
            StartPos = FSelPos + FindDlg->Text.Length();
            S = CopyMemory(MemLog->Lines->Text,StartPos, MaxInt);
        }
        else {
            S = MemLog->Lines->Text;
            StartPos =1;
        }
        FSelPos = Pos(FindDlg->FindTExt,S);
        if(FSelPos > 0) {
            FSelPos = FSelPos + StartPos - 1;
            MemLog->SelStart = FSelPos -1;
            MemLog->SelLength = FindDlg->FindText.Length();
            MemLog->SetFocus;
        }
        else {
            if (FindDlg->Options==frFindNext) {
                S := Concat('There are no further occurences of "', FindText,
          '" in Memo1.')
            }
            else {
                S := Concat('Could not find "', FindText, '" in Memo1.');
                MessageDlg(S, mtError, [mbOK], 0);
            }
        }
    }

일단 링크된 화일을 보고 고쳐봤습니다. 다른건보다

            if (FindDlg->Options==frFindNext) {
옵션확인하는 부분을 어떻게 해야할지 모르겠어요 .저렇게 하면 에러가 나는데... 어떻게 해야하나요?