[NumLock]

Код:

var
  i: Integer;
  arr: array [0..256-32] of Char;
begin
  for i:=0 to 256-32 do arr[i]:=Chr(i+32);
  Caption:=arr[7]+Chr(39)+'hello'+Chr(Ord(''''))+arr[7];