Hola enecumene prueba con esto:
Código Delphi
[-]for I := 0 to FMain.ComponentCount - 1 do begin
if FMain.Components[i] is TFrame1 then
TFrame1(FMain.Components[i]).Free;
Saludos....

__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7