// Butonumuzun hizalamsını kapatıyoruz
But1.Align:= alNone;

// Sonrasında ise konumlandırma
But1.Left:= 0;
But1.Top:= 0;

MyForm.AddNewEvent(But1, tbeOnClick, 'But1_OnClick');

Var
  MyForm: TclForm;
  But1: TclButton;

Procedure But1_OnClick;
Var
  i: Integer;
Begin
  i:= TclButton(MyForm.clSender).clTagInt;
  
  ShowMessage('Clicked ID: '+IntToStr(i));
End;


Begin
  MyForm:= TclForm.Create(Self);
  
  But1:= MyForm.AddNewButton(MyForm, 'but1', 'Test');
  
  But1.clTagInt:= 5;
  MyForm.AddNewEvent(But1, tbeOnClick, 'But1_OnClick');
  
  MyForm.Run;
End.