[-NORO-]

Originally Posted by Chayan Manna

That's the thing I have said him. I made the reply from my phone so, that's why I have not wrote the full code. I know all the purpose of the code.
The procedure "onmousedown" is a fixed property of a label in a custom form in which one have to add the mouse drag procedure. like this,
OnMouseDown:=@INFOMouseDown;
And the "INFOMouseDown" procedure is the mouse drag procedure which can be like this,
procedure INFOMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(InfoForm.Handle,$0112,$F012,0);
end;

And one thing, you have cracked my mod, so You can see there is more things than coping a code. No one can make such type of mod by just only coping the codes.

That wasnt the problem