library NumberDLL; { Martin Harvey 9/10/2000 } var ANumber:integer; function GetNumber:integer;stdcall; begin Result := ANumber; end; procedure SetNumber(NewNumber:integer);stdcall; begin ANumber := NewNumber; end; exports GetNumber, SetNumber; begin end.