Sorry, aber das ist widerspricht doch jeglichem effizientem Denken, was ihr da vorschlägt!
Wenn ich das in max 2 Minuten mit einem Memo gelöst habe (mit CTRL + C -> Ctrl + V) weshalb soll ich den den Ursprungsquelltext irgendwie als String oder Konstante innerhalb des Quellcodes zusammenpfriemeln mit komplizierten Stringverkettungen.
im objektinsoektor:
memo1.visible:= false;
memo1.wordwrap:= false;
memo1.lines öffnen + ctlr + v (Text wird eingefügt)
dann um den Colde anzuzeigen sowas wie:
Delphi-Quellcode:
var
i: Integer;
begin
for i:= 0 to memo1.lines.count - 1 do
showmessage(memo1.lines[i]);
end;