كيف أقدر أقرأ Text كلمة كلمة وكل كلمة تطبع في سطر

[hanipino]

السلام عليكم
على حسب ما فهمت.

PHP كود :

Function MotParMot(Str:String):String;
Const Cha = ' ';
var
  I,y:Integer;
  Mot:String;
  Sl:TStringList;
begin
  Y:=0; Result:='';
  Trim(Str);
  Str:=Str+Cha;
  Sl:=TStringList.Create;
  for I:= Y to length(Str)do
  if Str[i]in[Cha] then
   begin
    Mot:=Copy(Str,Y+1,I-Y);
    Sl.Add(Mot);
    Y:=I;
   end;
 Result:=Sl.CommaText;
 Sl.Free;
end; 


PHP كود :

LST1.Items.CommaText:=MotParMot(Edt1.Text);