и на последок в верхний регистр первую букву можно поднимать так -
Код:
function strtotitle(text:string):string;
begin
Result:=AnsiLowerCase(text);
Result[1]:=AnsiUpperCase(Result[1])[1];
end;
.....
begin
str:=strtotitle(str);
end;
самый простой способ по моему....