sampleinclude.dws

script language

var SomeValue: Integer = 0;

function GetSomeValue: Integer;
begin
  Result := SomeValue;
end;

procedure SetSomeValue(New: Integer);
begin
  SomeValue := New;
end;