Как связать Preview и Report программно

Evgesha

Создаю оба объекта диномически Связываю их. Компиляция проходит без ошибок, но программа вылазет ошибка вот код

void __fastcall THaupForm::FormCreate(TObject *Sender)
{
HaupPreview=new TfrxPreview(HaupForm);
HaupPreview->Height=566; HaupPreview->Left=400; HaupPreview->Top=0; HaupPreview->Width=392;
HaupPreview->Zoom=0.5;

HaupReport=new TfrxReport(HaupForm);
HaupReport->CreateUniqueName();
HaupReport->Preview=HaupPreview;
}