unit Unit1;

interface

type
  TMyObject = class(TObject)
  public
    procedure DoSomething;
  end;

implementation

{ TMyObject }

procedure TMyObject.DoSomething;
begin
  // do something
end;

end.
 
