看了【作者】gzgzlxg 《正确获得同益起名大师v337 的注册号??解读 moon 帮主的妙文》一文，有几个Delphi小程序（如下），本人对Delphi不是很了解，在用Delphi5编译时，我是直接将它copy成一个pas文件，但不能通过编译，是不是还要加上变量说明什么的，请大虾指点一下，该如何编译这个小程序。

procedure TForm1.Button3Click(Sender: TObject);
const
Str = '0AH6CD3BEF4TRS2PUV5K1MN78YZ9GIJ';
var
x1, x2: Integer;
S1, S2: String;
begin
x2 := StrToInt(Edit1.Text);
x1 := x2 mod 31;
S1 := Copy(Str, x1 + 1, 1);
x1 := (x2 div 31) mod 31;
S2 := Copy(Str, x1 + 1, 1);
S1 := S2 + S1;
x1 := (x2 div 31) div 31;
S2 := Copy(Str, x1 + 1, 1);
Edit2.Text := S2 + S1;
end;

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课