Separa String correccion codigo

[moviuz]

Hola , amigos este es mi primer post en el foro espero contar con su ayuda
el problema es el siguiente , junte en un comboBox 3 datos de una base de datos nombre,apellidoPaterno,apellidoMaterno en el combo box aparece algo asi:
Juan_Gomez_Martinez
lo que quiero hacer es separar cada uno para poder usarlos como variables y asi poder hacer la consulta SQL para saber cual es el Id que corresponde al nombre, estuve checando en el foro y me encontre con algunos ejemplos , agrego el codigo con el que intento separar el string

Código Delphi [-]
function palabras(var a:string):string;
var
app,apm,nombre:string;
begin
 nombre:= Trim(Copy(a,pos(a,''),Length(a))); // aquí según yo obtengo  obtener Juan
 app:= Trim(Copy(a,pos('',a),Length(a)));// aquí según yo obtengo Gomez
end;

como le haría para obtener Martinez, tengo que implementar un método para contar los espacios ?
de antemano muchas gracias , soy nuevo en el mundo de los foros , agradezco los comentarios y sugerencias