OnOLECompleteDrag (ImageList Control) example for Delphi

procedure TForm1.LEADImgList2OLECompleteDrag(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   str: String;
begin
   str:= 'LEADImgList2: OLE Complete Drag at pos X = ' + IntToStr(X) + ' and pos Y = ' + IntToStr(Y);

   ShowMessage(str);
end;

procedure TForm1.LEADImgList1OLEDragOver(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   str: String;
begin
   str := 'LEADImgList1: OLE Drag Over at pos X = ' + IntToStr(X) + ' and pos Y = ' + IntToStr(Y);
   ShowMessage(str);
end;

procedure TForm1.LEADImgList1OLEStartDrag(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   str: String;
begin
   str := 'LEADImgList1: OLE Start Drag at pos X = ' + IntToStr(X) + ' and pos Y = ' + IntToStr(Y);
   ShowMessage(str);

end;