Du könntest mal folgendes probieren:
Code:
for i := 0 to Parent.ControlCount - 1 do
if Parent.Controls[i] is TFrame3 then
begin
TFrame3(Parent.Controls[i]).Panel1.Color := clRed;
end;
Ohne Gewähr. Ich hab Delphi das letzte mal vor über 10 Jahren angefasst, aber so in etwa könnte es gehen.