Inhalt eines dynamisch erstellen Richedits drucken

[Brakeman]

Habe es mal so eingebaut und compilieren lässt es sich auch. In activePage steht auch der Name des gewählten Tabsheets drin und da der Name des Richedits der gleiche ist müsste es auch passen. Allerdings kommt dann beim Ausführen eine Zugriffsverletzung.

Delphi-Quellcode:

procedure TForm1.ButtonDruckenClick(Sender: TObject);
var activePage : String;

begin
 activePage:= PageControl1.ActivePage.Name;

 if PrinterSetupDialog1.Execute then
  TRichEdit (PageControl1.FindComponent(activePage)).print('Hallo');

end;