procedure TForm1.Button1Click(Sender: TObject);
const n=10;
type pole=array[1..n] of string;
var j,poz: integer;  xx:pole;
function dopola(s:string):pole;
var i,r: integer;
begin
s:=s+' ';
  r:=1;
  i:=1;
  poz:=pos(' ',s);
 while poz>0 do
  begin

  result[i]:=copy(s,r,poz-1);
  delete(s,r,poz);
  poz:=pos(' ',s);
  inc(i);
  end;
end;

begin
xx:=dopola('mama ma emu');
for j:=1 to n do memo1.lines.append(xx[j]);

end;