int zacatek_hledani;
  int zbyva_do_konce;
  int nalezena_pozice;

  if (redText->SelLength > 0)
  {
	zacatek_hledani = redText->SelStart + redText->SelLength;
  }
  else
	zacatek_hledani = 0;
	zbyva_do_konce = redText->Text.Length() - zacatek_hledani;
	nalezena_pozice = redText->FindText(dlgNajdi->FindTextW, zacatek_hledani,
	  zbyva_do_konce, TSearchTypes() << stMatchCase);

  if (nalezena_pozice != -1)
  {
	redText->SetFocus();
	redText->SelStart = nalezena_pozice;
	redText->SelLength = dlgNajdi->FindText.Length();
  }
  else
    ShowMessage("Ukončeno hledání v souboru - zvolený text nebyl nalezen !!!");