[AlexSku]

Вот в таком варианте работает:

Код:

var
  px: PChar;
  py: PInt;
begin
  GetMem(px,SizeOf(char));
  GetMem(py,SizeOf(integer));

  px^:='A';
  py^:=7;

  ShowMessage(px^);

  FreeMem(px,SizeOf(char));
  FreeMem(py,SizeOf(integer));
end;

Исправил также строку "ShowMessage"

Вот так тоже работает (удалил FreeMem, т.к. это вызывает ошибку):

Код:

var
  px: pointer;
  AChar: Byte;
begin
  GetMem(px,SizeOf(char));

  AChar:= Ord('A');
  px:=@AChar;

  ShowMessage(Char(px^));
end;