void __fastcall TMainForm::ReplaceDialogFind(TObject *Sender)
{
    TSearchTypes SearchTypes;
    int SearchStart = NowEdit->SelStart+NowEdit->SelLength;
    unsigned int SearchResult;
    if(ReplaceDialog->Options.Contains(frWholeWord)){
        SearchTypes << stWholeWord;
    }
    if(ReplaceDialog->Options.Contains(frMatchCase)){
        SearchTypes << stMatchCase;
    }
    SearchResult = NowEdit->FindText(ReplaceDialog->FindText,SearchStart,NowEdit->Text.Length(),SearchTypes);
    if(SearchResult == -1)
        ShowMessage("見つかりませんでした");
    else{
        NowEdit->SelStart = SearchResult;
        NowEdit->SelLength = ReplaceDialog->FindText.Length();
    }
    
}