Delphi D6 a D7

Dlaczego działa to pod D6 a pod D7 tylko czyste karki.

procedure TForm5.Button1Click(Sender: TObject);
var NewRect , YesRect : TRect;
begin
YesRect := Image1.Canvas.ClipRect;
NewRect := YesRect;
Printer.BeginDoc;
Printer.Canvas.CopyRect( YesRect , Image1.Canvas , YesRect );
Printer.EndDoc;
end;