modificar una tabla filtrada

[marcos_0586]

trabajo con database desktop que viene con delphi7 (las tablas las hice en paradox 7)
ahora me aparece:
[Error] Unit8.pas(129): Undeclared identifier: 'Parameters'
[Error] Unit8.pas(129): Missing operator or semicolon
a no se que hacer, dejo el codigo a ver si se puede hacer algo para poder terminar con esto

Código SQL [-]
 
procedure TForm8.Image1Click(Sender: TObject); var Dato: String; 
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.Parameters[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;

[[Caral]]

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

[marcos_0586]

Muchas gracias caral me salvaste,esta vez si funciono, porfin podre seguir con mi proyecto gracias.
Lo del edit y dbedit es porque: al ingresar al form el edit y una imagen son los únicos componente visible luego de presionar sobre la imagen de buscar aparece un panel1 que contiene el dbedit y otros componentes, el cual aparece directamente con el dato que deseo mostrar, es decir en el edit se ingresa un dato y en el dbedit solo lo muestra para corroborar que sean correctos los demas datos.