Помогите немного разобраться с печатью из memo

[GalaiAnton]

 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;

Окно на печать высвечивается,с кнопкой Печать все нормально,но если я в окне нажимаю отмена,то выбивает ошибку I/O error 102,как исправить или это так и должно быть?
Подскажите,что исправить,чтобы не выбивало ошибку

[FaTaL]

Из предоставленного Вами участка кода видно что у Вас не хватает end;

 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;
end;

Хотя может быть Вы просто скопировали сюда не весь код кнопки.

[GalaiAnton]

Сообщение от FaTaL

Из предоставленного Вами участка кода видно что у Вас не хватает end;

 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;
end;

Хотя может быть Вы просто скопировали сюда не весь код кнопки.

End стоит в коде,я все вроде бы скопировал...
Мучаюсь с этой кнопкой Отмена

[FaTaL]

В Вашем коде явно не хватает end;
Посмотрите мой код, выделил же красным специально какого end не хватает.