Copy is the bad solution, especially when you only copy 255 characters. Then you should copy using the Length(s). But it's easies to just uppercase the first character.
s := LowerCase(s);
s := UpCase(s);
Result := s;
A string is nothing more then an array of Char, therefor I prefer this construction.