[Resolvido] Não consigo fazer uma consulta de cadastros!

Olá Galera, estou com um grande problema, preciso desenvolver um projeto em Delphi no meu serviço e o que eu aprendi sobre "Consulta" só está me dando erro! estou a dois dias tentando solucionar

eu preciso descobrir porq o programa insiste em colocar a mesma unit no uses, assim q ele tá fazendo:

unit Unit14;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, XPMan;

type

TForm14 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

DBGrid1: TDBGrid;

StatusBar1: TStatusBar;

XPManifest1: TXPManifest;

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit2, Unit14; <<<< (essa unit que insiste em aparecer na hora de compilar, por mais que eu apague ela, na compilação o programa faz ela voltar e daí não roda)

{$R *.dfm}

procedure TForm14.Edit1Change(Sender: TObject);

begin

datamodule2.Form14.indexfieldnames:='';

If datamodule2.Form14.locate('',edit1.text,[lopartialKey]

Then

Dbgrid1.visible:=true else

Dbgrid1.visible:=false;

 

end;

end.

O que eu preciso é uma solução para essa codificação ou que alguém me passe o passo a passo de como faz uma consulta porque tô "apanhando" :(