procedure tform1.parserx(var s:string);
 var i:integer;
 m:string;
 a:array of string;
 begin
 if s[1]=' ' then delete(s,1,1);
 if s[length(s)]=' ' then delete(s,length(s),1);

 i:=1;
 n:=1;
 s:=s+' ';
 while i<=length(s) do
  begin
   if s[i]=' ' then
    begin
     a[n]:=copy(s,1,i-1));
     b[n]:=a[n];
     delete(s,1,i);

     i:=0;
     n:=n+1;
    end;
    i:=i+1;

  end;
 end;