procedure TForm1.ButtonStartDrag(Sender: TObject; var

WITH Sender AS TButton DO

BEGIN

Caption:= ’Перемещается’; {Егер тасымалданатын басқару элементі TButton типін немесе TButton типінің ұрпағын иемденсе, онда батырмаға«Перемещается» деген ат беріледі}

END;

end;

6. 
   Аналогиялық түрде батырмаға OnEndDrag оқиғасының өңдеуішін құрайық:
   

WITH Sender AS TButton DO

BEGIN

Caption:= ’Не перемещается’; {Егер тасымалданатын басқару элементі TButton типін немесе TButton типінің ұрпағын иемденсе,

Бұл өңдеуіште Sender - тасыланатын басқару элементі (батырма); Target – тасылатын басқару элементі түсірілген құрауыш (пішін немесе панель).