Oder du suchst dynamisch "in" der Eigenschaft ScrollBox.Components nach einer TImage-Komponenten. Hier der Ansatz, der aber nicht rekursiv funktioniert:
Delphi-Quellcode:
var
i : Integer;
found : Integer;
begin
found := 0;
for i := 0 to ScrollBox1.ComponentCount - 1 do
begin
if (ScrollBox1.Components[i] is TImage) then
Inc(found);
end;
if (found > 0) then
begin
end;
end;
Allerdings sei dazu gesagt, dass das nicht zu empfehlen ist und eher Luckies Ansatz genutzt werden sollte!
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)