Var

 Switch : TclSwitch;

 Bmg1, Bmg2: TClProImage;

 Form1: TclForm;

 void acma {

   

   if (Switch.isChecked){

     Bmg1.visible=True;

     Bmg2.visible= False;

     

   }

   else {

     Bmg1.visible=False;

     Bmg2.visible= True;

   }

 }

{

  Form1 = TclForm.Create(Self);

  Switch= Form1.AddNewSwitch(Form1,'Switch');

  Bmg1 = Form1.AddNewProImage(Form1, 'Bmg1');

  Bmg2 = Form1.AddNewProImage(Form1, 'Bmg2');

  clComponent.SetupComponent(Bmg1,'{"Align": "Center",

    "MarginsBottom":250,

    "Width":120,

    "Height":120,

    "ImgUrl":" https://i.hizliresim.com/sf427pj.png" rel="nofollow - https://i.hizliresim.com/sf427pj.png" ,

    "ImgFit": "yes"

  }');

  

  clComponent.SetupComponent(Bmg2,'{"Align": "Center",

    "MarginsBottom":250,

    "Width":120,

    "Height":120,

    "ImgUrl":" https://i.hizliresim.com/s35bzfl.png" rel="nofollow - https://i.hizliresim.com/s35bzfl.png" ,

    "ImgFit": "yes"

  }');

  

  Switch.Align= alCenter;

  Switch.Height=330;

  Switch.Width=120;

  

  Form1.AddNewEvent(Switch,tbeOnClick,'start')

  Form1.Run;

}