Applies toTESBPCSEdit
Declarationfunction UpperText: string;
DescriptionResult is also TrimmedImplementation
function TESBPCSEdit.UpperText: string; begin Result := AnsiUpperCase (Trim (Text)); End;