unit bug0140a;

interface

uses bug0140;

procedure Message(var O:TObject);

implementation

procedure Message(var O:TObject);
 begin writeln('Message') end;
end.