. Enabled:=true ;. Caption:= Введіть значення raquo ;;; TForm11. Button1Click (Sender: TObject);:=ComboBox2. Text;:=Edit1. Text ;. Active:=false ;. TableName:=vibor ;. DataSet:=ADOTable1 ;. Active:=true; not AdoTable1. Locate (strIndex1, strText1, [loCaseInsensitive, loPartialKey]) then. Active:=false; (strText1 + не знайдене у + strIndex1) ;;; TForm11. Button2Click (Sender: TObject) ;. Close ;;.