[NumLock]

100% работает:

Код:

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

procedure TForm1.FormCreate(Sender: TObject);
const
  alpha = 5;
//  alpha: Integer = 5;
var
  str: String;
begin
  Memo1.Lines.Add('alpha='+IntToStr(alpha));
  str:=IntToStr(alpha);
  Memo1.Lines.Add('alpha='+str);
end;