OpenDialog1.execute();
  Query1.DatabaseName:=ExtractFilePath(OpenDialog1.FileName);
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from :sourcedb');
  Query1.ParamByName('sourcedb').AsString:='"'+ExtractFileName(OpenDialog1.Filename)+'"';
  Query1.Open;就是实现在dbgrid中打开任意指定的paradox表,可是执行时报错,Invalid use of keyword.Token:from,不知何故?