ага спасибо.пока работает)
и еще вопрос уже не по теме,
почему функция Delete(string,pos,pos) не удаляет из Memo1.text
Код:
Delete(Memo1.text, Pos('<', Memo1.text), Pos('>', Memo1.text) - Pos('<', Memo1.text) + 1);
пишет ошибку " Constant object cannot be passed as var parameter"
а если вмсто Memo1.text вставить переменную типа string то работает.
решил проблему тем что содержимое мема1 присвоил в s:string, и потом удалил нужную часть и обратно мему1 присвоил s.
Но интересно почему напрямую с мемо.техт не работает