Gibts sowas wie findproperty?

[SearchBot]

Ich bin gerade am suchen, aber ich weiß nicht wie ich es nennen soll, daher fallen die Suchergebnisse daneben...

Ich möchte bei einer ganzen Reihe von TEdit die Eigenschaft text auf (leer) setzen. Also im Prinzip von (dasEdit).text:=''; Dann auch noch checked diverser TCheckbox auf false.

Also denke ich mir, ich mache eine

Code:

Procedure SetAll(propertyname:String; aufWert:string; vonComponents:array of TComponent);
Var i:integer;
begin
 for i:=0 to count(vonComponents)-1 do
  vonComponents[i].propertyname:=aufWert;
end;

Wobei natürlich zuvor aufWert an den jeweiligen Typen angepasst wird.

Mein Unwissen besteht jetzt darin, wie ich den in propertyname übergebenen Text so hinbekomme, daß es funktioniert.
Also sowas wie findcomponent('TForm1') ...??