[Yensis22]

Lo cambie a ADO pero me sigue tirando este erroe
que la funcion no esta defonoda




Y este codigo me funciona bien todo pero con una base de dato en paradox, pero la base de dato la tengo que entregar en access por favor ayudemen

Código Delphi [-]
unit cons;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;
type
  TFConsuEquip = class(TForm)
    Bevel2: TBevel;
    Bevel1: TBevel;
    Codequipo: TEdit;
    Busqueda: TComboBox;
    cBuscar: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOconequipos: TADOQuery;
    DSADOconequipos: TDataSource;
    procedure cBuscarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FConsuEquip: TFConsuEquip;
implementation
uses data;
{$R *.dfm}
procedure TFConsuEquip.cBuscarClick(Sender: TObject);
begin
if Busqueda.ITemIndex = 0 then Begin
         if length(trim(Codequipo.Text)) = 0 then Begin
                ShowMessage('Tiene que Especificar un valor para inicial la Consulta');
                exit;
         End;
         Codequipo.Text := trim(Codequipo.Text);
        ADOconequipos.Active := False;
         ADOconequipos.SQL.Clear;
         ADOconequipos.SQL.Add('select * from equipos where upper(Equipos) like ''%' + UpperCase(Codequipo.Text) + '%'' ');
       ADOconequipos.Active := True;
         if ADOconequipos.Eof then ShowMessage('Lo siento no se encuentra ningun Registros');
  End;
if Busqueda.ITemIndex = 1 then Begin
         if length(trim(Codequipo.Text)) = 0 then Begin
                ShowMessage('Tiene que Especificar un valor para inicial la Consulta');
                exit;
         End;
         Codequipo.Text := trim(Codequipo.Text);
         ADOconequipos.Active := False;
         ADOconequipos.SQL.Clear;
         ADOconequipos.SQL.Add('select * from equipos where upper(marca) like ''%' + UpperCase(Codequipo.Text) + '%'' ');
        ADOconequipos.Active := True;
         if ADOconequipos.Eof then ShowMessage('Lo siento no se encuentra ningun Registros');
    End;
 if Busqueda.ITemIndex = 2 then Begin
         if length(trim(Codequipo.Text)) = 0 then Begin
                ShowMessage('Tiene que Especificar un valor para inicial la Consulta');
                exit;
         End;
         Codequipo.Text := trim(Codequipo.Text);
         ADOconequipos.Active := False;
         ADOconequipos.SQL.Clear;
        ADOconequipos.SQL.Add('select * from equipos where upper(modelo) like ''%' + UpperCase(Codequipo.Text) + '%'' ');
         ADOconequipos.Active := True;
         if ADOconequipos.Eof then ShowMessage('Lo siento no se encuentra ningun Registros');
    End;
 if Busqueda.ITemIndex = 3 then Begin
         if length(trim(Codequipo.Text)) = 0 then Begin
                ShowMessage('Tiene que Especificar un valor para inicial la Consulta');
                exit;
         End;
         Codequipo.Text := trim(Codequipo.Text);
         ADOconequipos.Active := False;
         ADOconequipos.SQL.Clear;
         ADOconequipos.SQL.Add('select * from equipos where upper(Año) like ''%' + UpperCase(Codequipo.Text) + '%'' ');
         ADOconequipos.Active := True;
         if ADOconequipos.Eof then ShowMessage('Lo siento no se encuentra ningun Registros');
    End;
 if Busqueda.ITemIndex = 4 then Begin
         if length(trim(Codequipo.Text)) = 0 then Begin
                ShowMessage('Tiene que Especificar un valor para inicial la Consulta');
                exit;
         End;
         Codequipo.Text := trim(Codequipo.Text);
         ADOconequipos.Active := False;
        ADOconequipos.SQL.Clear;
         ADOconequipos.SQL.Add('select * from equipos where upper(fecha) like ''%' + UpperCase(Codequipo.Text) + '%'' ');
        ADOconequipos.Active := True;
         if ADOconequipos.Eof then ShowMessage('Lo siento no se encuentra ningun Registros');
    End;
   end;
 

end.