[BIG_BO]

Код:

procedure TfrmMain.mmiSearchClick(Sender: TObject);
begin
with FindDialog do
 begin
   FindText := Memo.SelText;
   Position := Point(TfrmMain.Left, TfrmMain.Top+
    Memo.Top + Memo.Height);
   Options := Options + [frHideUpDown, frHideWholeWord];
     Execute;
 end;
end;

Вот ошибка тут выскакивает не знаю почему(