на делфях не знаю как но думаю паскаль и делфи похожи
читаем строчку-исходная
цикл который переберает попорядку эту строчку и записывает в строку-1
как только доходим до спец символа который разделяет уин и пас выходим из цикла
и у нас есть переменная уин
слудующий цикл начинаеться с того места где закончил первый только на шаг в перед и читаешь до конца строку в цикле вот и все!
потом поделишься троем??
если время свободное есть разберусь и на делфях накатаю