procedure TForm1.Button1Click(Sender: TObject);
var
A : ^Integer;
begin
new(A);
A^:=5;
Inc(A^);
Label1.Caption:=A;
end.
А теперь он еще и ругатсяначал на потенциально опасную процедуру
[Error] Unit1.pas(32): Unsafe pointer variables, parameters or consts only allowed in unsafe procedure
Если поможете буду очень благодарен