Да;Вы можете использовать функцию UpCase
(надеюсь, что в большинстве вариантов Паскаля она есть).Ниже показано, как использовать его для прописывания первого символа в данной строке S
.
function UpCaseFirstChar(const S: string): string;
begin
Result := S;
if Length(Result) > 0 then
Result[1] := UpCase(Result[1]);
end;