procedure TForm2.Button2Click(Sender: TObject);
var
  s: string;
  a: Char;
begin
  s := '30';
  s := '$'   s;
  a := Char(StrToInt(s));      ShowMessage('a = '   a);
end;