Separar Strings em Partes

Ae galera... o q eu preciso é o seguinte tenho uma string tpw: ABC-123-456

e preciso separar essa string em 3 partes, eu consigo separar em duas usando isso:

Parte[0] := Copy(str, 1,Pos('-', str) -1);
Parte[1] := Copy(str, Pos('-', str) + Length('-'),Length(str));

ai parte[0] = ABC parte[1] = 123

mas como pegar a 3ª parte da string ?

parte[2] = 456

flws...