[yusnerqui]

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