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

[[newtron]]

Hola.

Para esto puedes usar la función StractStrings, si haces una búsqueda con esa palabra te saldrán bastantes post en el que hablan de ella.

Si no, aquí tienes un ejemplo.

Saludos