crear consulta adoquery

[Yensis22]

tengo este codigo pero no me hace nada y probe como me digiste pero haci me lo deja en blanco todo el dbgril

procedure Tconombreyapellidos.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tconombreyapellidos.Button1Click(Sender: TObject);
begin
adoquery1.active:=false;
adoquery1.sql.clear;
AdoQuery1.sql.text:= 'Select nom_cliente from clientes';
adoquery1.sql.add ('SELECT clientes');
adoquery1.active:=true;
end;
end.

[Yensis22]

este codigo me esta dando error y creo que mu puede funciona en la parte roja me esta dondo error.
type
Tconombreyapellidos = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button2: TButton;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
ADOQuery1: TADOQuery;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
//var;
// myVariable:Integer;
// myQry: boolean;
end;
var
conombreyapellidos: Tconombreyapellidos;
implementation
{$R *.dfm}
procedure Tconombreyapellidos.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tconombreyapellidos.Button1Click(Sender: TObject);
begin
//EDIT1.TEXT NO EVENTO ONCHANGE
With ADOQUERY1 DO BEGIN
CLOSE;
SQL.ADD('SELECT *');
SQL.ADD('FROM CLIENTES');
SQL.ADD('wHERE nom_cliente LIKE :nom_cliente');
PARAMETERS.pParamByName ('nom_cliente'.VALUE): = EDIT1.TEXTE + '%';
SQL.ADD('ORDER BY NOME');
OPEN;
END;
end;
end.

[[Caral]]

Hola

Código Delphi [-]
procedure Tconombreyapellidos.Button1Click(Sender: TObject);
begin
With ADOQUERY1 DO BEGIN
CLOSE;
SQL.Text:= 'SELECT * FROM CLIENTES WHERE nom_cliente = :nom_cliente ORDER BY NOME';
PARAMETERS[0].VALUE:= EDIT1.TEXT;
OPEN;
END;
end;

Saludos