test/pascal/example.pas

unit example;

interface

type
  TMyClass = class
  public
    procedure SomeProc;
  end;

implementation

procedure TMyClass.SomeProc;
begin
  // hello
end;

end.