[Thor]

Como decian:

Código Delphi [-]
String:='Alberto,Evelyn, Diane';
String := (String + ',');
//String:='Alberto,Evelyn, Diane,';
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.