Gibts sowas wie findproperty?

[nahpets]

Wie wäre es denn mit diesem hier?

Delphi-Quellcode:

procedure TForm1.SetAll(sText : string; bChecked : Boolean);
Var i : integer;
begin
  for i := 0 to ComponentCount - 1 do begin
         if Components[i] is TEdit then TEdit(Components[i]).Text := sText
    else if Components[i] is TCheckBox then TCheckBox(Components[i]).Checked := bChecked
    ;
  end;
end;

(nur hingedaddelt, nicht getestet)