[Alex-25]

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

Код:

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: Пользуемся тегами.