ocr: SEARCH.PAS procedure TLocate Examp le.Buttoniclick (Sender: Topject); begin Tablel.SetKey; (Put Tablel into search mode) Tablel.Fields(0).As5tring := Editl.Text; if not Tablel.GoTokey then (Attempt search) MessageDlg(Editl.Text*" could not be found.', mtError, mOOKJ,0); end; 39: 54 Modified Insert Search/P_ locate
