Como decian:
Código Delphi
[-]String:='Alberto,Evelyn, Diane';
String := (String + ',');
Nombre:=Copy(String, 0, Pos(',', String)-1);
String:=Delete(String, 0, Pos(',', String));
Apellido1:=Copy(String, 0, Pos(',', String)-1);
String:=Delete(String, 0, Pos(',', String));
Apellido2:=Copy(String, 0, Pos(',', String)-1);
String:=Delete(String, 0, Pos(',', String));
Lo malo que borras el contenido de String, asi que mejor te haces una cadena auxiliar o algo asi.
Saludos.