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