[MartinS]

Hola: Tengo una aplicación hecha en Firebird y luego de verificar los datos que se estan cargando he comprobado que la mayor parte de los nombres y direcciones de una de las tablas esta todo en mayusculas.
He desarrollado una pequeña funcion que me acomoda un texto al formato que quiero y es la siguiente:

Código Delphi [-]
Function AcomodarTexto(Original: String): String;
var Resultante,PLetra:string;
    i:integer;
    May : Boolean;
Begin
     PLetra := UpperCase(Copy(Original[1],1));
     i := 2;
     while I <= Length (Original) do
     Begin
     If Original[i] = ' ' then
        May := True else
        May := False;
     If May then
       Begin
       Resultante := Resultante+' ';
       Resultante := Resultante+ UpperCase(Original[I+1]);
       Inc(I);
       End
        else
       Resultante := Resultante+ LowerCase(Original[i]);
       Inc(I);
     End;
      Result := PLetra+Resultante;
end;

En una parte se verifica si existe un espacio y asigna en mayuscula al caracter que sigue ya que en general los nombres son del formato JOSE ANDRES (espacio entre jose y andres) y debe convertirlo a Jose Andres. Hasta aquí parece que funciona (igual acepto sugerencias).
El tema es como aplico esta función u otra a todos los registros de la tabla agentes para que acomode el campo nombres de acuerdo al formato que necesito? "Update Agentes Set nombres = ......


Saludos.-