novamente problemas com fechamento de form

Tenho uma rotina para visualizar um relatorio;

if Botao = IDOK then
begin
frmrecibo := Tfrmrecibo.create(self); //coloquei
frmvisualizar := Tfrmvisualizar.create(self);
frmvisualizar.tag := 47;
reciboc;
end;
Esta é a rotina que uso para visualizar o meu relatorio.

Dentro do formulario de visualização tenho o seguinte no evento onclose;
procedure Tfrmvisualizar.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frmvisualizar.QrPreview1.qrPrinter.Cancel;
frmvisualizar := nil;
frmvisualizar.free;

No meu relatorio tem o seguinte;
procedure Tfrmrecibo.QRP1Preview(Sender: TObject);
begin
frmvisualizar.QrPreview1.qrPrinter :=TqrPrinter(Sender);
frmvisualizar.Show;
end;

e no evento onclose
procedure Tfrmrecibo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmrecibo := nil;
frmrecibo.free;
end;

Mas o que acontece é o seguinte quanto vou fechar o meu primeiro relatorio quando clico em um botao que chama o evento onclose
ele não fecha, para ai e o formulario não fecha por nada.

procedure Tfrmcaixa.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmvisualizar.QrPreview1.qrPrinter.cancel;
frmcaixa := nil;
frmcaixa.free;
end;

Alguém poderia por favor me ajudar nesta questão?
Estou achando bem estranho este erro, estou usando o delphi4

sds[]
Eugênio