Tcompenent über selbst erzeugten namen ansprechen

[fajac]

Man kann auch einfach eine neue Klasse von TStringList ableiten und eine entsprechende Zugriffsmethode hinzufügen:

Delphi-Quellcode:

type
  TTImageList = class (TStringList)
  public
    function Image (AName : string) : TImage;
  
  ...

implementation

function TTImageList.Image (AName : string) : TImage;
var
  index : Integer;
begin
  index := IndexOf (AName);
  if index >= 0 then
    Result := TImage(Objects [index])
  else
    Result := nil;
end;

...und zum Hinzufügen eines TImage zur Liste :

Delphi-Quellcode:

var
  liste : TTImageList;
  image : TImage;
begin
  ...
  liste.AddObject (image.Name, image);

Dann geht der Zugriff auf ein Image in der z.B. Liste so:
  image = liste.Image('Image1');