procedure TForm1.WndProc(var Message: Tmessage);
var x,y:integer;
begin
if Message.Msg = MessageID then
begin
// Panel1.Caption := IntToStr(Num);
x:=PMouseHookStruct( message.lparam)^.pt.x ;
y:=PMouseHookStruct( message.lparam)^.pt.y ;

panel1.caption:=x=+inttostr(x)+ y=+inttostr(y);
inc(Num);
counter.Caption := IntToStr(Num);
end
else Inherited;
end;

end.