Jak podzielić stringa na wyrazy ?

Pytanie jak w temacie...
np. mamy stringa
str='boryzo1 boryzo2 boryzo3';
i jak zrobic aby było
str1='boryzo1;
str2='boryzo2;
str3='boryzo3;

czytasz czasami artykuly z "Service for programmers" :-)--Source of life - Programming,
Skateboarding,
Metal.

Mozna tak :
var
str : string;
slowa : array[0..2] of string;

• slowa : TStrings;
  i : integer;
  begin
  *slowa:=TStringList.create;
  str := 'boryzo1 boryzo2 boryzo3';
  i:=0;
  repeat
  slowa[i]:=copy(str , 1 , pos(str, ' ')-1 );
  //slowa.Add(copy(str , 1 , pos(str, ' ')-1 ));
  Delete(str , 1 , pos(str ,' ') );
  inc(i);
  until Pos(str , ' ')=0;
  end;

Tak mozesz robic w przypadku gdy znasz ilosc spacji a jak nie to zamiast tablicy stringów zastosuj TStrings . W przypadku TSTrings zmianna i jest zbedna.
--GOGLE is the best :)
Pozdrowienia Chodek

Dziękuje bardzo za udzielenie mi tak bardzo cennej dla mnie odpowiedzi.

Pozdrawiam Boryz