[Message] procedure x ( var Message : tX) ; message x ; ?

Version imprimable