求高手帮忙解决模糊查找问题

小弟刚学篇这个，到了模糊筛选就不懂了！
例如：AB\ABCD\BCD  只能用A筛选出来AB\ABCD   不能用C筛选出ABCD\BCD
另外，请教能简化下程序的大哥，（最好能做个解析的），感激！
unit Unitmain;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, Grids, DBGrids, QuickRpt,
  QRCtrls, ExtCtrls, jpeg, XPMan;type
  TSYSmain = class(TForm)
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    Table1: TTable;
    Database1: TDatabase;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Image1: TImage;
    DBEdit5: TDBEdit;
    Button1: TButton;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TDateTimeField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    XPManifest1: TXPManifest;
    Button2: TButton;
    Button3: TButton;
    Label6: TLabel;
    Button4: TButton;
    Button5: TButton;
    Table2: TTable;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    DataSource2: TDataSource;
    Table3: TTable;
    DataSource3: TDataSource;
    Table3BDEDesigner: TStringField;
    Table3BDEDesigner2: TDateTimeField;
    Table3BDEDesigner3: TDateTimeField;
    Table3BDEDesigner4: TMemoField;
    Table2BDEDesigner3: TStringField;
    Edit1: TEdit;
    Label7: TLabel;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  SYSmain: TSYSmain;implementationuses UnitPass, UnitAbout, UnitContact;{$R *.dfm}procedure TSYSmain.Button1Click(Sender: TObject);
begin
if dbedit5.Text='' then
showmessage('该客户仍没有可用照片')
else
image1.Picture.LoadFromFile('.\Photo\'+dbedit5.Text+'.bmp');
end;procedure TSYSmain.Button5Click(Sender: TObject);
begin
loginmain.Close;
end;procedure TSYSmain.Button4Click(Sender: TObject);
begin
FAbout.show;
end;procedure TSYSmain.Button2Click(Sender: TObject);
begin
FContact.Label1.Caption:='客户管理系统----联系方式';
Fcontact.Caption:='客户联系';
Fcontact.Dbgrid1.Height:=426;
FContact.DBNavigator1.DataSource:=sysmain.DataSource2;
FContact.DBGrid1.DataSource:=sysmain.DataSource2;
FContact.show;
end;procedure TSYSmain.Button3Click(Sender: TObject);
begin
FContact.Label1.Caption:='客户管理系统----过往记录';
Fcontact.Caption:='客户记事';
Fcontact.Dbmemo1.Visible:=true;
FContact.DBMemo1.DataSource:=sysmain.DataSource3;
FContact.DBMemo1.DataField:='备注';
FContact.DBNavigator1.DataSource:=sysmain.DataSource3;
FContact.DBGrid1.DataSource:=sysmain.DataSource3;
FContact.show;
end;procedure TSYSmain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
end;procedure TSYSmain.Button6Click(Sender: TObject);
begin
with table1 do
try
  disablecontrols;
  filtered:=false;
  filter:='姓名='+''''+edit1.text+'*'+'''';
  filtered:=true;
finally
  enablecontrols;
  end;
end;procedure TSYSmain.Button7Click(Sender: TObject);
begin
with table1 do
try
  disablecontrols;
  filtered:=false;
  filter:='';
  filtered:=true;
finally
  enablecontrols;
  end;
end;end.