[lmikle]

тебе надо не вычислять априори начало и конец слова, а вырезать их поочереди по пробелу.

Код:

var
  M : Array Of String;
  S : Strng;

  Idx : Integer;
begin
  SetLength(M,0);
  S := 'любая строка, наример полученная из Edit.Text';
  Idx := Pos(' ',S);
  While Idx > 0 Do
    Begin
      SetLength(M,Length(M)+1);
      M[High(M)] := Copy(S,1,Idx-1);
      S := Copy(S,Idx+1,Length(S));
      Idx := Pos(' ',S);
    End;
  SetLength(M,Length(M)+1);
  M[High(M)] := S;
end;