Line 37 должна быть:
Код:
word := word + bk[i] + ' ';
PS. Лучше не использовать 'word' как имя переменной, т.к. есть такой тип данных.
PPS. Более простой способ деления текста на слова (по пробелу):
Код:
var
sl : TStringList;
begin
sl := TStringList.Create;
Try
sl.Delimiter := ' ';
sl.Delimitedtext := Memo1.Lines.Text;
...
Finally
sl.Free;
End;
В результате у тебя есть переменная sl - список слов (фактически, массив), доступ к элементам через sl[i]:
Код:
for I := 0 To sl.count-1 Do
ShowMessage(sl[i]);