ProperCase

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;