Curso De Delphi

[wenderson1307]

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.

[bolomaster]

Qual o erro que ele apresenta ?????

[wenderson1307]

quando dou F9 ele pára no parte de definição para impressão....