[Alex7]

Рабочий вариант:

Код:

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

Подсказали на другом форуме.