[Delphi] Bardzo pilne!!!!!! [pętla i TShape]

Jak w petli odwolac sie do wszystkich komponentow TShape? [???]

var
i: Integer;
begin
for i := 0 to ComponentCount-1 do
if Components[i] is TShape then
(Components[i] as TShape).Brush.Color := clRed;
end;