[Страдалецъ]

1. Половину функций там можно заменить встроеными
2. Очень ненравиться мне вот эта функция, где в качестве переменной используется предопределнное ключевое слово. Если компилятор такое пропускает, то я даже незнаю что он приваивает и какую длину использует.

Код:

function FillWordByStar(Word: string) : string;
const
  Star = '*';
var
  i : integer;
begin
  Result := Word;
  for i := 1 to length(Word) do
  begin
    if Random(2) = 1 then
      Result[i] := Star;
  end;
end;

3. А здесь вообще ошибка:

Код:

 SmilesBase[Random(12)]

должно быть:

Код:

 SmilesBase[Random(12)+1]

т.к. массив задан от 1 до 12 а random генерит значения от 0 до 11