Fórum Erro... #158328

[color=darkblue:d236c0c0d6]tenho esse código para impressão de um livro:

cOkLivro:
begin
if linha=´AOK´ then
begin
if fToolDataLivro.checadata then
begin
with TfqrDesprezo.Create(application) do
begin
dataini:=fToolDataLivro.cbdataini.DateTime;
datafim:=dataini+1;
try
paginicial:=StrToInt(fToolDataLivro.ePagina.Text);
except
application.messagebox(´Você deve preencher a pagina que deseja iniciar o relatorio´, ´Imprimir folha do livro´,mb_ok or mb_iconerror);
fToolDataLivro.ePagina.SetFocus;
exit;
end;
quickrep.Preview;
Free;
end;
fToolDataLivro.Close;
FreeAndNil(fToolDataLivro);
proxcodigo:=codanterior;
end;
end{linha = AOK}
else if linha = ´ACC´ then
begin
fToolDataLivro.Close;
FreeAndNil(fToolDataLivro);
proxcodigo:=codanterior;
end;
end;
end;{Case proxcodigo}
end; {else codigo <> de qualquer acao especial}
linha:=´´;
RefreshMemo;
end;

mas a rodá-lo dah um erro de:

´Control ´ has no parent window´

o q pode ser isso? :? [/color:d236c0c0d6]