Загрузка отчета из поля БД

Nautic

Здравствуйте все. Помогите пожалуйста разобраться как в D7 из поля БД в MS SQL Server загрузить отчет в frxReport v 3.19. дело в том что написанный мною код прекрасно работает в D2005 но при переносе в D7 стал выдавать ошибку: "Access violation at address 0082EDD1 in module Trade.exe. Read at address 000000B4"
Код процедуры:

procedure TfBacklog.cxGrid2DBTableView1DblClick(Sender: TObject);
var
AStream: TMemoryStream;
begin
if not qsysTradeReport.Active then qsysTradeReport.Active := true; //таблица где храниься отчет
try
AStream:=TMemoryStream.Create;
with dmReport do
begin
frxRep.Clear;
try
qsysTradeReportReport.SaveToStream(AStream);
frxRep.LoadFromStream(AStream);
except
on E: Exception do MessageDlg(E.Message, mtError, [mbOk], 0);
end;
frxRep.Variables := '1';
frxRep.Variables := ''''+FormatDateTime('yyyymmdd',qZakazdate.AsDateTime)+'''';
frxRep.Variables := ''''+FormatDateTime('yyyymmdd',qZakazdate.AsDateTime)+'''';
frxRep.Variables := '0';
frxRep.Variables := '2000000';
frxRep.Variables := qLinkid.AsString;
frxRep.Variables := qLinkid.AsString;
if frxRep.PrepareReport(true)
then
begin
try
frxRep.ShowPreparedReport;
except
MessageDlg('Ошибка.', mtError, [mbOk], 0);
exit;
end;
end
end;
finally
AStream.Free;
end;
end;

gpi

try
qsysTradeReportReport.SaveToStream(AStream);
AStream.Position:=0;
frxRep.LoadFromStream(AStream);
except