OnOLECompleteDrag (Main Control) example for Delphi

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

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

   ShowMessage(str);
end;

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

   ShowMessage(str);
end;