help delphiiiiiiii

[bellamina21]

اعداد محلل لغوي يعني نضع function هو يقوم بتحليل كلماتها الى poctuation
identificateur,mots clès
Mots-clés : function integer
Opérateurs : +
Identificateurs : max i j
Ponctuation : ( : ) ;
قمت بوضع كل كلمة في سطر لكن لا تنفع مبدئيا لانها تعتمد على فراغ واحد
procedure TForm1.Button1Click(Sender: TObject);
var
p,f,i:integer;
mot,str:string;
begin

str:= edit1.text;
i:=1;

while i<= length(str) do
begin
while (i <= length(str)) and (str[i]=' ') do
i:=i+1;

p:=i;

while (i<=length(str)) and ((str[i]<>' ')) do

i:=i+1;

f:=i-1;

mot:=copy(str,p,f-p+1);
memo1.lines.add(mot);

end;
stp aidez moi