[Alegun]

А если так, if вместо while

Код:

...
while i<=length(input.Text) do
    if lt=32 then
    begin
    inc(k);
    lt:=ord(input.Text[i]);
    end else
    begin
     lt:=ord(input.Text[i]);
     words[k]:= words[k]+chr(lt);
     inc(i);
    end;
...