Здравствуйте, пытаюсь сделать так, чтобы при достижении определённого количества символов в edit1 текст после последнего пробела переносился в edit2
Код:
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);
но переносится после первого пробела.
Подскажите пожалуйста как исправить.