não consigo realizar esta SQL...retonar erro..

Olá,

Tenho a seguinte sql e estou usando interbase :

with Qry1 do
begin
Qry1.Close;
sSQL := ´Select * from contrato´;
SQL.Clear;
SQL.Add(sSQL);
Qry1.Prepare;
Qry1.Open;
End;
QuickRep1.Prepare;
vPgs := QuickRep1.QRPrinter.PageCount;
if Application.MessageBox(´Enviar direto para Impressora?´,´Impressão´,mb_yesno+mb_iconquestion) = IDNO then
QuickRep1.Preview
else
QuickRep1.Print;
Qry1.Close;


quando executo a opção de preview ou printer ela me retorna o seguinte erro :

Control ´´ has no parent widget

so que não tenho nenhum campo de nome control ou qualquer componente com este nome tambel no quickrep1

algum ja passou por esta situação

Valeu