Mine

var
  globalvar : integer;

procedure foo ( var param1, param2 : integer );
var 
  localvar : integer;
begin
  // code goes here
end;