Весь программный код находится в прикреплённом файле, желательно протестировать его на заранее просчитаных значениях. Если возникнут какие-то вопросы по коду, напишите мне и я Вам с удовольствием помогу.
Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
<span>Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
</span>Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));
Забыл еще объявить массив х, нужно написать array of integer.
Ну скажем...
1 = а
2 = б
3 = в
4 = г
и так далее.
Но можно скажем сделать так...
10000 = а
11000 = б
11100 = в
11110 = г
11111 = д
и так далее.
Шифр 11000 10000 11110 = баг
И, таким образом, ты можешь придумывать свои кодировки