String jeweils nach einem Punkt auslesen

[barf00s]

sTextNachPunkt := Copy(sOriginal, Pos('.', sOriginal) + 1, Length(sOriginal));