Все работает, хз что у тебя за трабл...
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
alpha=5;
var
str:string;
begin
str:=intToStr(alpha);
Memo1.Lines.Add('ALPHA='+str);
end;
Не успел............................................. ........................................)