Can anyone tell why this script show a syntax error (SOLVED)

// GetRegistrationDetails
// Blank script procedure Get ResistrationDetails;

procedure Get ResistrationDetails;

var
S:string
if GetGlobalVar(“hepubregistered”, “0”) = “1” then
begin
S := GetGlobalVar(“hepubuserdata1”, “”);
if S <> “” then S := " (" + S + “)”;
S := GetGlobalVar(“hepubusername”, “”) + S;
SetGlobalVar(“RegisteredUser”, "Licensed to " + S), false);
end
else
begin
SetGlobalVar(“RegisteredUser”, “Not licensed”, false);
end;
end;

Just count the (
It should be:
SetGlobalVar(“RegisteredUser”, "Licensed to " + S, false);

:oops: Embarrassing! Thanks