I've tried your game Lainz. It's funny.
I noticed that the numbers at the bottom can be the same. See attached screenshot. To avoid this, you can compute each number until it is different from others. For example :
For N := 1 to 5 do
For I := 1 to 100 do
Begin
ComputeValueOfNumber(N);
If ValueDifferentFromThoseOnTheLeft(N) then Break;
End;
By the way, it would be great to have a visual representation of the numbers. You can do this with Canvas2D for example, by applying translation and rotation to some object representing unit.