Метод Locate для поиска в БД Access

unit DM;
 
interface
 
uses
  SysUtils, Classes, Menus, DB, ADODB;
 
type
  TfDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    DSTauthors1: TDataSource;
    Tauthors1: TADOTable;
    Tproizv1: TADOTable;
    DSTproizv1: TDataSource;
    Tauthors1DSDesigner: TAutoIncField;
    Tauthors1DSDesigner2: TWideStringField;
    Tauthors1DSDesigner3: TWideStringField;
    Tauthors1DSDesigner4: TWideStringField;
    Tauthors1DSDesigner5: TDateTimeField;
    Tauthors1DSDesigner6: TDateTimeField;
    Tauthors1DSDesigner7: TMemoField;
    Tauthors1DSDesigner8: TBlobField;
    Tproizv1DSDesigner: TAutoIncField;
    Tproizv1DSDesigner2: TWideStringField;
    Tproizv1DSDesigner3: TWideStringField;
    Tproizv1DSDesigner5: TMemoField;
    Tproizv1id_proizv: TAutoIncField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyLocate(s: String);
  end;
 
var
  fDM: TfDM;
 
implementation
{$R *.dfm}
 
{ TfDM }
 
procedure TfDM.MyLocate(s: String);
begin
 Tauthors1.Locate('Фамилия' s, [loPartialKey]);
end;
 
end.

procedure TfDM.MyLocate(s: String);
begin
 Tauthors1.Locate('Фамилия; Имя; Отчество', s, [loPartialKey]);
end;