DelphiX -- Saving top scores

[Paizo]

for example:

  if InputQuery('you made 9999999 points!!!', 'enter your name', TmpStr) then
   begin
    name := TmpStr;
  end;