如何使得当用Filter方式查询成功的时候，显示信息为“找到了’

现在的结果是找到了，但提示信息为找不到。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids;type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Table1CustNo: TFloatField;
    Table1Company: TStringField;
    Table1Addr1: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var FindSuccess:Boolean;
begin
    FindSuccess:=False;
    Case RadioGroup1.ItemIndex of
      0:begin
        FindSuccess:=Table1.Locate('CustNo',Edit1.Text,[loPartialKey])
        end;
      1:begin
        Table1.Close;
        Table1.IndexFieldNames:='CustNo';
        Table1.Open;
        Table1.SetKey;
        Table1CustNo.AsString:=Edit1.Text;
        FindSuccess:=Table1.GotoKey;
        end;
      2:begin
        Table1.Close;
       Table1.IndexFieldNames:='CustNo';
       Table1.Open;
       FindSuccess:=Table1.FindKey([Edit1.Text]);
       end;
      3:begin
        Table1.Close;
        Table1.Filtered:=True;        Table1.Open;        end;
      end;
      if Findsuccess=True  then begin
        DBGrid1.SetFocus;
        ShowMessage('找到了！')
        end else ShowMessage('对不起，找不到！！');
end;procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
  var temp:String;
begin
    if CompareStr(Table1CustNo.AsString,Edit1.Text)=0 then Accept:=True
    else Accept:=False;end;end.