[compuin]

Lo habia solucionado asi

Código Delphi [-]
  
   private
    { Private declarations }
   public
    { Public declarations }
  TvPlanetas : array [1..9] of TPlaneta;
  end;

Const