[Lazarus] Control-C Hit error.

[Larry Dalton]

I have recently upgraded to Lazarus 1.4.2, running on Windows 7.
I have used the following procedure for 14 years on Delphi 4, and Lazarus
1.2.6, on Windows XP, Vista, and Windows 7.

procedure TFormPrinter.GapWaiveButtonClick(Sender: TObject);
var GapwaiveDrawer:Gapwaive_Drawer;


previewing:boolean;
preview:boolean;
deal_counter:integer;
this_font:tfont;
this_page:page;

begin

PrintImage.Visible:=true;
sho_line(109);
PrintImage.Enabled:=true;
sho_line(111);
PrintImage.BringToFront;
sho_line(113);
printimage.Top:=0;
sho_line(115);
printimage.Left:=0;
sho_line(117);
printimage.Width:=1000;
sho_line(119);
printimage.Height:=750;
sho_line(121);
hidebuttons;
sho_line(123);
PrintImage.Top:=0;
sho_line(125);
printimage.Left:=0;
sho_line(127);
printimage.Width:=round(20*96);
sho_line(129);
printimage.Height:=round(9.50*96);
sho_line(131);
preview:=true;
sho_line(133);
this_font:=tfont.create;
sho_line(135);
this_font.Name:='Times New Roman';
sho_line(137);
this_font.size:=12;
sho_line(139);
this_font.Style:=[fsbold];
sho_line(141);
setpage(printImage.canvas,preview,8.50,11.00,0,0,0,0,this_font,this_page);
sho_line(143);
PrintImage.BringToFront;
sho_line(145);
previewing:=true;
sho_line(147);
printerSetupdialog1.Execute;
sho_line(149);

The sho_line() is a debugging tool I use to see exactly where the error
takes place.
After I installed Lazarus 1.4.2, when I get to line 148, and try the
printerSetupdialog1.Execute, I get the Control-C hit error.
What do I need to look for?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20150825/6c1e1550/attachment-0002.html>