unit Test;

interface

type
  TTest = class
    public
      procedure SayHello;
  end;

implementation

procedure TTest.SayHello;
begin
  WriteLn ('Hello, world!');
end;

end.