längeren Codeblock als Text statt als Unter-Procedure

[Andreas13]

Hallo Enigma,
ich bin mir nicht sicher, ob ich Dich richtig verstanden habe, was Du mit „Text“ meinst.
Vielleicht meinst Du, einen gemeinsamen CodeTeil in einer Textdatei z.B. CodeTeil.inc auszulagern und mittels Include-Anweisung {$i CodeTeil.inc} einzufügen?

Du solltest auf jeden Fall die With -Anweisungen weglassen und stattdessen qualifizierte Bezeichner verwenden, um Verwechslungen zu vermeiden und das Debuggen zu ermöglichen.
Gruß, Andreas