简单的php代码到delphi代码

我想用delphi写这段代码，我已经试过了，但是没有成功

$uid = $i=0; while($i<12){ $i++;}
$uid += floor(rand() * 10);

$uid=$i=0；而（$i基本的“伪码”转录是这样的

uid = 0
i = 0
while i < 12
begin
  i = i + 1
end
uid = uid + floor(rand * 10)

这里有关于数学随机的解释

数学地板的解释在这里

再说一遍，里面没有隐藏的魔法

编辑：

因此，代码生成了12个随机数字组成的字符串。关于如何在Delphi中生成随机字符字符串的一些提示可以在这里找到：
难道你没有选择一个没有大量明显错误的源代码吗？我只需要生成随机数的函数。使用javascript代码进行后期编辑源代码生成随机数。如一个数字。不要将其用作编写自己代码的参考。我不理解您的意思，我希望delphi代码给出的随机数与javescript代码相同！请澄清。您在任务的哪个部分遇到问题？这将生成该数字43262569，并且只有最后一个数字发生更改，它应该有12位。可能是问题所在我在php代码中。我编辑了上面的帖子。我编辑了你的答案，以更正第一段代码中的语法错误，但你的编辑重写了它。@Jerrydoge好的，没问题，我是说第一段伪代码是一段大家都能理解的伪语言代码和冒号等。没关系。你可以编辑它，如果你喜欢的话，但我认为我们有already发现“抄写”是正确的。如果你能正确地编写Delphi，请发布一个带有最终解决方案的答案：）StackOverflow社交网络看起来很有趣：）我被投了赞成票，投了反对票，发表了严厉的评论，我的帖子被删除了。我还不确定这是否是我想要的乐趣：）@Jerry，这是不对的。您缺少
do
，一个冒号和几个分号；-）xmojmr，目前还没有对您的帖子进行投票，但如果会有反对票（不是我的，因为我没有投反对票），请不要感到惊讶，但这个问题特别要求进行Delphi翻译，因此您的伪代码或将Pascal与JavaScript进行伪混合的翻译在这里是无用的。
 var UID='';
    for(var i=0;i<12;i++)UID+=''+Math.floor(Math.random() * 10);

uid = 0
i = 0
while i < 12
begin
  i = i + 1
end
uid = uid + floor(rand * 10)

UID := ''
for i := 1 to 12
begin
  UID := UID + Math.floor(Math.random() * 10)
end