library dllDLL1;

{$mode objfpc}{$H+}
var
  FI: integer;

function test:integer;
begin
  result:=FI;
  inc(FI);
end;

exports test;

initialization
  FI:=1234;
end.