Alguém podee por favor conferir o que está errado abaixo, pois não consigo rodar esta parte do programa.... begin if dlImprime.Execute then // com a janela ativa no momento faça... with TfrmTexto(ActiveMDIChild) do begin // associa a variável texto ao gerenciador de impressão do Windows assingPrn(texto); rewrite(Texto); printer.canvas.font := memo1.font; for i := 0 to memo1.lines.Count do Writeln(Texto, memo1.Lines); closeFile(Texto); end; end; procedure TfrmPrincipal.Fonte1Click(Sender: TObject); begin if dlFonte.Execute then begin with TfrmTexto(activeMdiChild) do Memo1.Font := dlFonte.Font; end; end; procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction); begin if MDIChildCount > 0 then FecharTodas1.Click; end; end.