[Grunch]

Вот так у меня все работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
A : ^Integer;

begin
new(A);
A^:=5;
Inc(A^);
Label1.Caption:=IntToStr(A^);
end;