unit ProcsAndMethods1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils; 

type
  TFoo = class
  end;

  TBar = class
  public
  end;

procedure DoSomething(i: integer);

implementation

procedure DoSomething(i: integer);
begin
  // code
end;

end.