[SpectraL]

Переменная "a" изначально имеет значение 4 200 156. Почему и можно ли это исправить без обнуления переменной "a"?

Код:

unit Unit1;

interface
  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
    System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

  type
    TForm1 = class(TForm)
      procedure FormCreate(Sender: TObject);
    end;

    TPType = ^TType;

    TType = record
      a: Integer
    end;

  var
    Form1: TForm1;
    i: TPType;

implementation
  {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  New(i); // создаём динамическую переменную
  if i.a <> 0 then ShowMessage(IntToStr(i.a))
end;

end.