procedure  DoIndirect;
   var  NonClientMetrics: TNonClientMetrics;
      Siz: integer;
   begin 
    Siz := SizeOf(NonClientMetrics);
    FillChar(NonClientMetrics, Siz,  0 );
    NonClientMetrics.cbSize := Siz;
     if  DefaultFont <> dTimeFont  then   begin 
       if  SystemParametersInfo(SPI_GETNONCLIENTMETRICS,  0 , @NonClientMetrics,  0 )  then 
         with  NonClientMetrics  do 
           case  DefaultFont  of 
            dCaptionFont: result := lfCaptionFont;
            dSmCaptionFont: result := lfSmCaptionFont;
            dMenuFont: result := lfMenuFont;
            dStatusFont: result := lfStatusFont;
            dMessageFont: result := lfMessageFont;
           end 
       else 
        RaiseLastOSError;
     end ;
   end ;