[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.