Циклический выбор слов в строке

[Supressor]

Всем привет, прошу помощи, т.к. не понимаю в чем ошибка.
Условие: Есть строка S, длины L. В ней содержатся группы цифр разделенные пробелом.
Задача: Проходя цикл, выбрать каждую группу цифр и закодировать ее по образцу.
Я написал вот так код:

procedure TForm2.Button1Click(Sender: TObject);
var
S,WORD,C,REZ:String;
L:Integer;
  y, i: Integer;
begin
S:=Edit1.Text+' ';
 L:=Length(S);
 y:=1;
 for i := 1 to L do
 Begin
   C:=S[i];
   if C=' ' then
    begin
      Word:=Copy(s,y,i-1);
          y:=i+1;
// кодирование
 end;
end;
Вывод на экран
end;

Проблема заключается в след.
Пусть у меня строка 666 555. По образцу я должен переделать 666 в "П", а 555 в "Р" и записать их слитно, тогда результатом будет "ПР".
У меня же получается в результате "П", тоесть он банально не берет след. блок цифр после пробела.

[Supressor]

Надо было ложиться спать раньше Нашел ошибку