var
   db: TDBISAMDatabase;
   tbl: TDBISAMTable;
   procedure Exec(sql: string);
   var
      qry: TDBISAMQuery;
   begin
      qry := TDBISAMQuery.Create(db);
      qry.DatabaseName := db.DatabaseName;
      qry.SQL.Add(sql);
      qry.ExecSQL;
      qry.Destroy;
   end;
begin
   db := nil;
   tbl := nil;
   try
      db := TDBISAMDatabase.Create(nil);
      db.DatabaseName := 'Sample';
      db.Connected := True;

      Exec(
    ' create table "\Memory\RA_NewChanged"(ResourceID integer);'+
    ' insert into "\Memory\RA_NewChanged" values(168);'+
    ' delete from "\Memory\RA_NewChanged";'+
    ' insert into "\Memory\RA_NewChanged"'+
    ' select ResourceID'+
      ' from Resource;'+
    ' delete from "\Memory\RA_NewChanged"');


      tbl := TDBISAMTable.Create(db);
      tbl.DatabaseName := 'Memory';
      tbl.TableName := 'RA_NewChanged';
      tbl.Open;
      if tbl.RecordCount > 0 then
         Assert(not tbl.EOF);
   finally
      tbl.Free;
      db.Free;
   end;
end.