Hallo,
das kannst Du sicherlich auch alleine machen.
Siehe
OH, Copy, Pos, Delete u.ä..
Am einfachsten wäre es de String durchzugehen,
for i := 0 to Length(String) -1,
immer bis zu einem Punkt und den Inhalt in zwischenstrings speichern.
Grüsse, Daniel