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);