unit methodjump1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

procedure DoSomething;

implementation

procedure DoSomething;
begin

end;

end.