Program ARTICLELV_WM_LBUTTONUP;

Procedure OnWMessage(var Msg:TMessage;var handled:Boolean);
Begin
   ADo('GetSelectedMessageBodies');
End;

Begin
End.