ocr: GLOSSARY.PAS procedure TForml.Buttoniclick(Sender: TObject); var selectedword: String; begin with TGlossary do begin Editkey; selecteduord := UpperCase Hemol.5elText); leldbyname (' word').ASstring : selecteawora; if 1 not GoTokey then HessageDlg(No definition is available for '+ SelectedWordt., mt Information, mbOk],0) else MessageDlg(Iolossary.fieldByName ("Detinition').Text, mt Informat ion, mbok], 0); end; end; 46: 39 Modified Insert Glossary
