DevelStudio: Как сделать поиск в поле Memo ?

Ну примерено так

    $find = strip_tags(clipboard_getText());
    c("memo2")->selStart=strpos( c("memo2")->text, $find);
    c("memo2")->selLength= strlen($find);

Берет из буфера текст, очищает от тэгов и ищет только первое вхождение и выделяет его.

Обожаю DevelStudio