Hola
El codigo es un poco lioso para entender lo que pretendes hacer.
La unica manera seria viendo el programa y tratar de correrlo.
De todos modos:
El error es simplemente por que no usa Parameters el query de la paleta BDE, lo que usa es Params.
Sigue con este a ver que errores te da:
Código Delphi
[-]
procedure TForm1.Image1Click(Sender: TObject);
var Dato: String;
begin
if form1.table4.findkey([Edit3.Text])= true then
begin
panel1.Visible:=true;
IF RadioButton1.Checked=true then
begin
Image2.Visible:=false;
Image3.Visible:=true;
DBLookupComboBox1.ReadOnly:=true;
DBEdit1.ReadOnly:=true;
DBEdit2.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
dbgrid1.ReadOnly:=true;
Dato:= DBEdit1.Text;
Query1.SQL.Text:='SELECT Numero from T_telcliente where Cod_cliente= :a';
Query1.Params[0].Value:= Dato;
Query1.active:=true;
end
else
begin
Image2.Visible:=true;
Image3.Visible:=false;
DBLookupComboBox1.ReadOnly:=false;
DBEdit1.ReadOnly:=false;
DBEdit2.ReadOnly:=false;
DBEdit3.ReadOnly:=false;
dbgrid1.ReadOnly:=false;
end;
end
else
begin
showmessage('no existe el dni buscado');
edit3.Text:='';
end;
edit3.Text:='';
end;
end;
Otra cosa que no entiendo es por que buscas la llave en el edit3 sin embargo buscas el dato en el dbedit1, no se que contienen.
Saludos