fpcsrc/tests/tbs/ub0120.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ Old file: tbs0140a.pp }
{  }


unit ub0120;

interface

uses tb0120;

procedure Message(var O:TObject);

implementation

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