procedure TForm1.Button1Click(Sender: TObject);
var
  C: WideChar;
  B: array[0..1] of Byte;
begin
  C := '↑';
  B[0] := Lo(Integer(C));
  B[1] := Hi(Integer(C));
end;