function AnsiFirstUpCase(const S: string): string; var Len: Integer; begin Len := Length(S); SetString(Result, PChar(S), Len); if Len > 1 then CharLowerBuff(Pointer(Result), Len); if Len > 0 then CharUpperBuff(Pointer(Result), 1); end;