[Dclase]

Saludos,

A ver si alguien me puede dar una mano con una funcion que estoy intentando hacer que consiste en lo siguiente:

Quiero a varios componentes de varios tipos Ej:
Edit1 : TEdit;
Edit2 : TEdit;
Edit...X : TEdit;
Image1 : TImage;
Image2 : T Image;
Image...X : TImage;

cambiar sus propiedades pero sin tener que llamar cada componente uno por uno, sino desde una variable, por ejemplo:

Código Delphi [-]
Function SeletItem(vVal: Integer): Variant;
Var
vEdit : TEdit;
vImage : TImage;
vNomEdit, vNomImg : String;
begin

For I:=1 To 10 Do
Begin

  vNomEdit := 'Edit'+IntToStr(I);
  vNomImg := 'Image'+IntToStr(I);
  xxxx // Aqui no se como pasar la variable al componente TEdit y TImage
  vEdit.Color := clWindow;
  vImage.Visible := False;

End;

  vNomEdit := 'Edit'+IntToStr(vVal);
  vNomImg := 'Image'+IntToStr(vVal);
  xxxx //  .....
  vEdit.Color := clRed;
  vImage.Visible := True;
....

o algo asi.

Nota: Lei por ahi algo parecido con una funcion "FindComponet" para asignar el nombre del componente pero no me funciona dentro de la funcion.