Фильтрация и вывод нужного поля

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;
    procedure Tauthors1FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //procedure MyLocate(s: String);
    ed: String; 
  end;
 
var
  fDM: TfDM;
 
implementation
{$R *.dfm}
 
{ TfDM }
 
{procedure TfDM.MyLocate(s: String);
begin
 Tauthors1.Locate('Фамилия',s, [loPartialKey]);
end;}
 
procedure TfDM.Tauthors1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  s: String; 
begin
  s := Copy(DataSet['Фамилия'], 1, Length(ed));
  Accept := s = ed;
end;
 
procedure TfDM.DataModuleCreate(Sender: TObject);
begin
 
end;
 
end.

      DM.ADOQueryClient.Filtered := True;
      DM.ADOQueryClient.Filter := 'FamClient LIKE '+ #39 + sEditFind.Text + '%' + #39;

'FamClient LIKE '+ #39 + sEditFind.Text + '%' + #39;