페스트리포트를 쿼리와연결하여 미리보기를 하는데 처음에 미리보기를 하면 괜찮은데
두번째 부터는 그림과같이 processing page를 끝도없이 읽어들이고 취소버턴을 누르면
'invalid floating operration'에러가 납니다.

아래의 예제는 페스트리포트에 있는 데모소스를 그대로 한것입니다.

데모소스를 컴파일해도 에러가 생기는데 컴포넌트가 잘못깔린건가요?

페스트리포트를 이용해서 만든 다른프로그램은 별이상이 없거든요.

도대체 무엇때문인지 모니터만 멍하니 바라봅니다.

고수님들의 답변 부탁드립니다.

procedure TForm1.button1click(Sender: TObject);
var
  v: TfrView;
  b: TfrBandView;
  Page: TfrPage;
begin

Form1.frReport1.Dataset:=Form1.frDBDataSet1;
Form1.frDBDataSet1.DataSource:=Form1.H_DataSource;
Form1.H_DataSource.DataSet:=Form1.H_Query;


  frReport1.Pages.Clear;
  frReport1.Pages.Add;              // create page
  Page := frReport1.Pages[0];

  b := TfrBandView.Create;             // create Title band
  b.SetBounds(0, 20, 0, 20);           // position and size in pixels
  b.BandType := btReportTitle;         // (only Top and Height are significant
  Page.Objects.Add(b);                 //  for the band)

  v := TfrMemoView.Create;             // create memo
  v.SetBounds(20, 20, 200, 16);
  v.BandAlign := baWidth;
  v.Prop['Alignment'] := frtaCenter;   // another way to access properties
  v.Prop['Font.Style'] := 2;
  v.Prop['Font.Color'] := Clred;
  //v.Memo.Add('Your text is: [Edit1.Text]');
  v.Memo.Add('Your text is: 안녕');
  Page.Objects.Add(v);

  b := TfrBandView.Create;             // create MasterData band
  b.SetBounds(0, 60, 0, 20);
  b.BandType := btMasterData;
  b.Dataset := 'frDBDataSet1';         // band's dataset
  Page.Objects.Add(b);

  v := TfrMemoView.Create;             // create data field
  v.SetBounds(20, 60, 200, 16);
  v.Prop['Font.Color'] := Clred;
  v.Memo.Add('[Form1.H_Query."h_name"]');
  Page.Objects.Add(v);
{
  frReport1.Pages.Add;              // create second page
  Page := frReport1.Pages[1];
  Page.PageType := ptDialog;
  Page.Width := 200;
  Page.Height := 170;
  Page.Caption := 'Test';

  v := TfrEditControl.Create;          // create editbox
  v.SetBounds(60, 50, 75, 21);
  v.Name := 'Edit1';
  Page.Objects.Add(v);

  v := TfrButtonControl.Create;        // create button
  v.SetBounds(60, 100, 75, 25);
  TfrButtonControl(v).Button.Caption := 'Test!';
  TfrButtonControl(v).Button.ModalResult := mrOk;
  Page.Objects.Add(v);
  }
  frReport1.ShowReport;

end;