Erro tela consulta

Ola estou um tempo sem postar no forum, mas hoje me deparei com uma dificuldade eu montei um formulario de consulta de contatos com o seguinte codigo :

implementation

uses Unit2, Unit1, Unit3;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

form1.show;

form6.Hide;

end;

 

procedure TForm6.Button2Click(Sender: TObject);

begin

DBEdit2.SetFocus;

DataModule2.tabcontatos.Edit;

end;

 

procedure TForm6.Button3Click(Sender: TObject);

begin

form3.show;

form6.Hide;

end;

 

procedure TForm6.Edit1Change(Sender: TObject);

begin

DataModule2.tabcontatos.Locate('nome',Edit1.Text,[LopartialKey,LocaseInsensitive]);

end;

end.

e funcionou bem assim que a pessoa digita no campo de busca ele vai exibindo, ai tentei fazer outra tela para consultar fornecedores, mais ai quando escreve no edit de pesquisa não acontece nada, ta assim :

implementation

uses Unit2, Unit4, Unit1;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

form1.show;

form7.Hide;

end;

procedure TForm7.Button4Click(Sender: TObject);

begin

DataModule2.tabcontatos.Edit;

end;

 

procedure TForm7.Edit1Change(Sender: TObject);

begin

DataModule2.tabfornecedor.Locate('RAZAO SOCIAL',Edit1.Text,[LopartialKey,LocaseInsensitive]);

end;

 

procedure TForm7.Button2Click(Sender: TObject);

begin

DBEdit2.SetFocus;

DataModule2.tabfornecedor.Edit;

end;

 

procedure TForm7.Button3Click(Sender: TObject);

begin

form4.Show;

form7.Hide;

end;

end.

Gostaria de saber se fiz algo errado nesse segundo formulario,

Aguardo quem poder ajudar