1, Sorge dafür das alle Formulare eine eigene Basisklasse haben.
Also statt TForm dann TMyForm.
2, Definiere in der TMyForm eine Methode InitFormControls
Dort wird dann dein Code ausgeführt ohne with (Halte ich wie viele andere als ein zu vermeidendes Sprachkonstrukt) und übergabeparameter
Also dann
Delphi-Quellcode:
procedure TMyForm.InitFormControls;
begin
for var i := 0 to ComponentCount - 1 do
begin
Sehe das dummzeuch auch schon was geschrieben habe.
Das wäre mein nächsteer Punkt gewesen
