How to Get/Set control.Font.Color at runtime

I'm using this code to access to the propertys of a component:

var
   x,y,z : integer;
   b : TControl;
   c : PPropInfo;
   FList: PPropList;
..
..
                    y := GetPropList( b.ClassInfo, [tkClass], nil);
                    if y >0 then
                    begin
                       GetMem(FList, y * SizeOf(Pointer));
                       GetPropList( b.ClassInfo, [tkClass], FList);
                       for z := 0 to y - 1 do
                       begin
                            if UpperCase(FList[z].Name) = 'POPUPMENU' then
                            begin
                                 c := GetPropInfo( b.ClassInfo,
FList[z].Name);
                                 {lControles[x].PopUpmenu := GetOrdProp( b,
c);}
                                 SetOrdProp( b, c, 0);
                            end;
                       end;
                       FreeMem(FList, y * SizeOf(Pointer));
                    end;

With this code i store the popupmenu property and set it to nil, but
how can i access Color, Style, etc, of the property Font on a control.

Thanks.