var

  MyForm : TclForm;

  MyCursor : TclProImage;

  TestBtn : TclProButton;

// Fare her hareket ettiğinde çalışacak prosedür

void MoveCursorImage;

{

  MyCursor.Position.X = MyForm.clFormMousePosX; 

  MyCursor.Position.Y = MyForm.clFormMousePosY;

  

}

{

  MyForm = TclForm.Create(Self);

  

  TestBtn = MyForm.AddNewProButton(MyForm, 'TestBtn', 'Tıklama Testi');

  TestBtn.Align = alCenter;

  TestBtn.Height = 50;

  TestBtn.clProSettings.BackgroundColor = clAlphaColor.clRed;

  TestBtn.SetclProSettings(TestBtn.clProSettings);

  

  // 2. İmleç Olacak Resim

  MyCursor = MyForm.AddNewProImage(MyForm, 'MyCursor');

  MyCursor.clSetImage('https://resmim.net/cdn/2025/12/24/w3oiVi.png'); 

  MyCursor.Width = 40;

  MyCursor.Height = 40;

  MyCursor.Align = alNone; // Serbest dolaşabilmesi için None olmalı

  

  MyCursor.HitTest = False; 

  

  MyForm.AddNewEvent(MyForm, tbeOnMouseMove, 'MoveCursorImage');

  

  MyForm.Run;

} 

Örnek kodu bu şekilde.