老千，你在哪里？？偶用setrange除了故障（牛虻）

Question

你看看Delphi的帮助阿～～procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.DatabaseName := 慏BDemos?
  Table1.TableName := 慍ustomer.db?
  Table1.Active := True;
  Table1.IndexName := 'ByCompany';
  if Button1.Caption = '&Apply Range' then
    begin
      Table1.SetRange([Edit1.Text],[Edit2.Text]);      Button1.Caption := '&Drop Range';
    end
  else
    begin
      Table1.CancelRange;
      Table1.Refresh;
      Button1.Caption := '&Apply Range';
    end;
end;