Bei Form1.print kommt stack overflow

[DeddyH]

Ich meinte damit, dass Du an eine Stelle kommst, an der Du schon einmal warst. Mal ein Beispiel:

Delphi-Quellcode:

procedure TSomeForm.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color := clRed;
  Canvas.FillRect(ClientRect);
  Repaint;
end;

Hier wird im OnPaint ein Repaint aufgerufen, was ein OnPaint auslöst, in dem Repaint aufgerufen wird, was ein OnPaint auslöst....

Ich vermute, etwas Ähnliches hast Du auch fabriziert.