Как обратится к компоненте по имени?(-: Опции

[BlackNightFear]

Блин, вышибло меня сегодня че-то, как обращаться к компоненту через имя в переменной String?
Помню делал я это недавно тока забыл как и где именно это делал.... НО ПОМНЮ ТОЧНО МОЖНО ТАКОЕ СДЕЛАТЬ!
Тока как?(-:
Например есть несколько компонентов TImage, как через обращаться к любому по имени через строку: "Image1", например? Отличия в именах: Image1, Image2, ..., ImageN

[ShadowWatcher]

Я бы делал примерно так:

Код

Function FindComponent(Root:TComponent;ComponentName:String):TComponent;
Var
 i:Integer;
Begin
 If Root.Name = ComponentName Then
   Result := Root
 Else
   For i:=0 To Root.ComponentsCount - 1 Do
   Begin
     Result := FindComponent(Root.Components[i],ComponentName);
     If Result <> Nil Then
       Exit
   End;
 Result := Nil
End;

А затем вызов функции типа

Код

Var
 LabelStringName : String;
Begin
 LabelStringName := 'Label1';
 (FindComponent(Form1,LabelStringName) As TLabel).Caption := 'sdffff';
End;