Печать из delphi в memo

procedure TForm1.N8Click(Sender: TObject);
var
Line: TextFile;
I: integer;
begin {кнопка "Печать (поле текст) "}
If dlgPnt1.Execute then
begin
AssignPrn(Line);
ReWrite(Line);
Printer.Canvas.Font := Mmo1.Font;
for I := 0 to Mmo1.Lines.Count -1 do Writeln (Line, Memo1.Lines[i]);
System.CloseFile(Line);
end;[/CODE]
Окно на печать высвечивается, с кнопкой Печать все нормально, но если я в окне нажимаю отмена, то выбивает ошибку I/O error 102,как исправить или это так и должно быть?
Подскажите, что исправить, чтобы не выбивало ошибку.