Lo querés implementar en Delphi?
Básicamente lo que querés hacer es pasar el string a minúscula. Después lo separas por un delimitador (en tú caso un espacio en blanco). Esto te genera un array of string, el cual tiene en cada posición cada "parte" del nombre. El último paso es recorrer el arreglo y convertir a mayúsculas el primer carácter de cada uno de los string. Luego lo grabas en la base
Te van a interesar estas funciones
SplitString
UpCase y
LowerCase