[Crocodil]

Уважаемый Stil, что-то не выходит каменный цветок

Код:

procedure TForm2.dbgrid1KeyPress(Sender: TObject; var Key: Char);
begin
obozn:=obozn+key;
dbgrid1.DataSource.DataSet.Locate('Обозначение',obozn,[loPartialKey]);
StatusBar1.Panels.Items[0].Text:='Поиск:'+obozn;
end;

procedure TForm2.Button3Click(Sender: TObject);

var naim: string;
begin
naim:=dbgrid1.DataSource.DataSet.FieldByName('Наименование').AsString;
if naim = 'Корпус сверла Shark Drill HP4'
then
  begin
    Hide;
    Form4.Show;
    Exit;
  end;
if naim = 'Пластина сверла Shark Drill HP4'
then
  begin
    Hide;
    Form5.Show;
    Exit;
  end;
end;

Ошибок никаких не выводит, но не работает, формы не открываются.
Не могу понять, в чём дело