UpCase! これを探してました
　if (Result <> '') then
　begin
//　　Result[1] := Chr(Ord(Result[1]) - $20);
　　Result[1] := UpCase(Result[1]);
　end;
感謝