[angvelem]

Сообщение от Electronic_Arts

и на последок в верхний регистр первую букву можно поднимать так -

Код:

function strtotitle(text:string):string;
begin
  Result:=AnsiLowerCase(text);
  Result[1]:=AnsiUpperCase(Result[1])[1];
end;

Лучше всё же так:

Код:

...
  Result:=AnsiUpperCase(text);
...