странный char знак - как убрать ?

[kakawkin]

Есть массив:
const a:array[1..26] of char = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
Собственно написал вот такую функцию:
function personal(i:integer):string;
begin
for i:=1 to i do result:=result+a[random(26)-1];
end;

Вызываю вот так:
procedure TForm1.Button2Click(Sender: TObject);
var s:integer;
begin
memo1.lines.add(personal(20));
end;

И местами показывает какието странные знаки >.<
http://s57.radikal.ru/i156/1010/0a/10c88cca9667.jpg

Неподскажите в чем проблема ?

[Sparkman]

*пользователь удалил это сообщение*

[Serge_Bliznykov]

ошибка вот здесь.

random(26)-1

random(26) возращает число от нуля до 25 да ещё и минус 1?!
очевидно, описка, надо:

random(26)+1

[IliaIT]

Возможно всё из за того что random выдаёт значения от 0, а у вас от -1. проверяйте что получили с функции.