[Alex-25]

помогите, пожалуйста, в чем ошибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

unit Unit3;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Buttons, Mask, DBCtrls;   type   TForm3 = class(TForm)     BitBtn1: TBitBtn;     BitBtn2: TBitBtn;     ComboBox1: TComboBox;     Edit1: TEdit;     procedure BitBtn2Click(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form3: TForm3;   implementation   uses Unit1;   {$R *.dfm}   procedure TForm3.BitBtn2Click(Sender: TObject); begin   form3.Close;   Form1.Enabled:=true;   Form1.Button1.Enabled:=true;   form1.Button2.Enabled:=true;   form1.Button3.Enabled:=true; end;     procedure TForm3.BitBtn1Click(Sender: TObject); begin   If not Form1.DBGrid1.DataSource.DataSet.Locate(Form3.ComboBox1.Text,([Form3.Edit1.Text]),[]);   Then ShowMessage('Поиск не дал результатов :('); end;   end.

lmikle: Пользуемся тегами.