procedure createtempfile;
var
  sDir,sfile:string;
  tmpTable:TTable;
  query : TQuery;
  i:integer;
begin
  sDir:=database.directory; //如果你使用database的話必須另訂Path
  for i:=1 to 1000 do begin
     sFile:=tmp_' inttostr(i) '.db';
    if not FileExists(sDir '\' sFile) exit;
  end;
  tmpTable:=TTable.create;
  with tmpTable do begin
    databasename:=sDir;
    tablename:=sFile; 
    with FieldDefs do begin
      Add('No',ftString,10);
      ..........
    end;
    with IndexDefs do begin
      Add(.....);
    end;    
    CreateTable;
  end;
  Query:=TQuery.create(self);
  with Query do begin
    Close; SQL.Clear;
    SQL.Add('Select ........'); //把要印的資料Query出來
    open;
    First;
    while not eof do begin //把資料加入異動檔中
      tmpTable.AddRecord([]); 
      next;
    end;
  end;
  with tmpTable do
    if RecordCount mod PageCount<>0 then //如果資料筆數沒有剛好整頁
      for i:=RecordCount mod PageCount 1 to PageCount do
        Append;  // 把不足筆數加入
  //把tmpTable丟到QuickReport印即可
  //記得在QuickReport的Form中 onDestroy中加入
  Deletefile(sfile) 這樣才不會使得異動檔一直增加
end;