TCar = class
  private
 
        FPainted : boolean;       //крашенный, некрашенный
        FPriceNewCar : integer;   //стоимость нового автомобиля
        FPriceItog : integer;     //стоимость выплачиваемая клиенту(хозяину авто)
 
        procedure setpainted(x: boolean);        
          function getpainted(): boolean;

        procedure setpricenewcar(x: integer);    //     уст цены новой машины
          function getpricenewcar(): integer;

          function getpriceitog(): integer;     //      получ цены старой машины  
     
  public
 
       property painted     : boolean read getpainted write setpainted;
       property pricenewcar : integer read getpricenewcar write setpricenewcar;
       property priceitog   : integer read getpriceitog;


 
end;
 
implementation
 
     procedure setpainted(x: boolean);
     begin
 
        fpainted := x;
     end;
 
        function getpainted(): boolean;
        begin
           getpainted := fpainted;
        end;

     procedure setpricenewcar(x: integer);
     begin
        fpricenewcar := x;
     end;

        function getpricenewcar(): integer;
        begin
           getpricenewcar := fpricenewcar;
        end;

        function getpriceitog(): integer;
        begin

        end;
 
end;

{var flag:boolean;}
if RadioButton1.Checked then
    flag:=true
  else
    flag:=false;

{var flag:boolean;}
  flag:=RadioButton1.Checked;