// 2 méthodes :
// fonction retournant le string modifié
function fUpCaseFirst(const S: string): string;
begin
Result := S;
if Result = '' then Exit;
Result := AnsiUpperCase(Result[1]) + Copy(Result, 2, Length(Result) - 1);
end;
// procedure modifiant la variable string passée en paramètre
procedure pUpCaseFirst(var S: string);
begin
if S = '' then Exit;
S := AnsiUpperCase(S[1]) + Copy(S, 2, Length(S) - 1);
end;