[HOW TO] Pass variables to Scripting and display them

procedure toppk(cond: String; cond2: String);
var                    
buttonSelected : Integer; 
begin           

buttonSelected := MessageBox("TOP PK Character is: "#13#10""#13#10"" + cond + " "#13#10""#13#10"Would you like to edit this character?", "Top PK", MB_OKCANCEL+MB_ICONINFORMATION);   

if buttonSelected = IDOK     then MessageBox("Go to edit character with ID "+ cond2 +"", "Result from button", MB_OK+MB_ICONINFORMATION);
if buttonSelected = IDCANCEL then MessageBox("Whatever, i wont blame you!", "Result from button", MB_OK+MB_ICONINFORMATION);  

end;

echo '<a href="hescript://Statistics.toppk|moikomij|0001161651">Click?</a>';