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.