[ecfisa]

Hola bulc.

Según lo que entendí que deseas hacer sería:

Código Delphi [-]
  ...
  SetLength(Img_A, 4);
  N:= 0;
  for i :=0 To ComponentCount - 1 do
    if (Components[i] is TImage) then
    begin
      Img_A[N].L := TImage(Components[i]).Left;
      Img_A[N].T := TImage(Components[i]).Top;
      Img_A[N].R := TImage(Components[i]).Left + TImage(Components[i]).Width ;
      Img_A[N].B := TImage(Components[i]).Top + TImage(Components[i]).Height ;
      Img_A[N].Tg:= TImage(Components[i]).Tag;
      Inc(N);
    end;
  ...

Saludos