Bueno ya el caso está resuelto, pero aporto otra solución para la base de datos de los foros haciendo uso de los TStrings.
Código Delphi
[-]
function AsTitulo(Frase:String):String;
Var
Lista : TStrings;
i : integer;
Temp : String;
begin
Lista := TStringList.Create;
Lista.Delimiter := ' ';
Lista.DelimitedText := Frase;
for i := 0 to Lista.Count - 1 do
begin
Temp := LowerCase(Lista[i]);
Temp[1]:= UpCase(Temp[1]);
Lista[i] := Temp;
end;
Result := Lista.DelimitedText;
Lista.Free;
end;
Saludos