[virgin34]

помогло, спасибо!
Вот еще здесь не могу разобраться, разделить edit на слова и скопировать их по одному в каждую ячейку, не могу понять как задать начало слова для нахождения длины слова в функции copy,(k-n) гдк к-конец слова и n начало

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
mas:array[0..100]of string;
i,u,kon,change:integer;
s,s1:string;
n,k:integer; //начало и конец слова
begin
s:=edit1.text;
kon:=Length(s);
n:=1;
u:=0;
    for i:=0 to kon do
    if s[i]=' ' then
    begin
    k:=i;
    s1:=copy(s,1,k-n);
    mas[u]:=s1;
    change:=1;
    inc(u);
    if change=1 then break
    end;
      for i:=0 to kon do
      if s[i]=' ' then
      begin
      change:=1;
      if change=1 then break
      end;
//n:=i;
        for i:=i to kon do
        begin
        if n=0 then  n:=i else
        begin
        k:=i;
        s1:=copy(s,i-1,k-n);
        n:=0;
        mas[u]:=s1;
        inc(u);
        end;
        end;

edit1.Text:=s;

    for u:=0 to 100 do
    begin
    StringGrid1.Cells[u,0]:=mas[u];
    end;
end;