Bei Form1.print kommt stack overflow

[Natcree]

Wenn ich meine Form1 über form1.print ausdrucken will kommt einen Fehlermeldung und programm schmiert ab. Ein Stack Overflow Siehe Bild. ich hoffe es kann mir jemand Helfen ???

Hier der Code dazu.....

Delphi-Quellcode:

procedure TForm1.FensterDrucken1Click(Sender: TObject);
begin
printer.Orientation:=poLandscape;
Form1.Print;
end;