queltext kürzen mit schleifen

[Namenloser]

So geht das nicht. FindComponent ist eine Methode von TComponent, die kannst du nicht einfach außerhalb einer von TComponent abgeleiteten Klasse aufrufen.

Wenn schon, dann müsste es ei deinem Code form1.FindComponent('Image'+IntToStr(i)) as TEdit; heißen.
Besser wär's aber, die reguläre Procedure gleich zu einer Methode von TForm1 zu machen.