problema com janelas

[EuToComProblema! 1]

Bom dia a todos...Estou com o seguinte problema, tenho um form que gera um relatório, mas gostaria que ao gerar o relatório, quando fechar a tela de exibição retornasse a tela onde estava, parece simples não?pois é, mas não sei o que acontece no meu código, pois quando fecho o form ao invés de retornar ao que estava, este também é fechado, retornando para a tela principal :(//AQUI CHAMO O RELATÓRIOprocedure TRemessa.BitBtn1Click(Sender: TObject);begin try SelecaoNotas := ''; with IBDS_Duplicata, SelectSQL do begin DisableControls; First; while not eof do begin if FieldByName('REMESSA').AsInteger = 999999 then selecaonotas := selecaonotas + fieldbyname('NOTA_ID').AsString + ','; Next; end; end; VoltaRemessa := true; Rel_Remessa := TRel_Remessa.Create(Self); finally IBDS_Duplicata.EnableControls; // ** end;end;** quando termina a execução do relatório, vai para esta linha, então pula para o try finally do meu form principal e dá um FreeAndNil(Remessa) que é o form que gostaria de manter na tela exatamente como o usuário o deixou antes de gerar o relatório!//ON CREATE DO RELATORIOprocedure TRel_Remessa.FormCreate(Sender: TObject);begin Remessa.SelecaoNotas := copy(Remessa.SelecaoNotas,1,Length(Remessa.SelecaoNotas)-1); if not Remessa.VoltaRemessa then begin // Faz a seleção das Duplicatas Remessa.IBDS_Duplicata.Close; Remessa.IBDS_Duplicata.SelectSQL.Clear; Remessa.IBDS_Duplicata.SelectSQL.Add('select * from DUPLICATAS'); Remessa.IBDS_Duplicata.SelectSQL.Add('where EMPRESA_ID = ' + IntToStr(TEmpresa.Empresa_id)); Remessa.IBDS_Duplicata.SelectSQL.Add('and REMESSA = ' + QuotedStr(Remessa.Ed_Remessa.Text)); Remessa.IBDS_Duplicata.SelectSQL.Add('and PGTO_BANCO = ' + QuotedStr(Remessa.IBDS_BancoDESCRICAO.AsString)); Remessa.IBDS_Duplicata.SelectSQL.Add('and NOTA_ID in ('+Remessa.SelecaoNotas+') '); Remessa.IBDS_Duplicata.SelectSQL.Add('order by ' + sOrdem); Remessa.IBDS_Duplicata.Open; end else begin with Remessa.IBDS_Duplicata, SelectSQL do begin Close; Clear; Add('select * from DUPLICATAS'); Add('where NOTA_ID IN(' + Remessa.SelecaoNotas + ')'); Open; end; end; Screen.cursor := crDefault; try QR_Remessa.Prepare; QR_Remessa.Preview; finally QR_Remessa.QRPrinter := Nil; QR_Remessa.Free; end; Close;end;//FORM CLOSE DO RELATORIOprocedure TRel_Remessa.FormClose(Sender: TObject; var Action: TCloseAction);begin action := caFree;end;vlw a atenção.boa semana a tds

[EuToComProblema! 1]

vlw galera, encontrei o problema....era erro de BIOS, hehe problema de ctrl + c ctrl + vcopiei um botao que estava com a propriedade modalresult = mrNo, aí foi só alterar para mrNone.vlw a atencao