The function ProperCase forces the first character of every word within the specified string aString to uppercase, and returns the result as a string.

Declaration: Function ProperCase(const aString : String) : String;

Here are some examples.

procedure OnMapEvent(var Value:Variant);
Var
Str0, Str1 : string;
begin
//Returns 'This Manual Contains Several Different Kinds Of Information:'
Str1 := ProperCase('THIS MANUAL CONTAINS SEVERAL DIFFERENT KINDS OF INFORMATION:');
LogInfo(Str1);
//Returns '76 Trombones Lead The Big Parade!'
Str1 := ProperCase('76 trombones lead the big parade!');
LogInfo(Str1);
//Returns 'I Counted 15 Asterisks (*) And 10 Ampersands (&).'
Str0 := 'I counted 15 asterisks (*) and 10 ampersands (&).'
Str1 := ProperCase(Str0);
LogInfo(Str1);
end;