[Alex7]

Здравствуйте, пытаюсь сделать так, чтобы при достижении определённого количества символов в edit1 текст после последнего пробела переносился в edit2

Код:

1 2 3 4

if Length(Edit1.Text) > 23 then begin  for i:=length(Edit1.Text) downto 1 do  if Edit1.Text[i]= ' ' then  Edit2.Text := copy(Edit1.Text, i+1, Length(Edit1.Text)-i);

но переносится после первого пробела.
Подскажите пожалуйста как исправить.