Delphi 2009 new Unit Character[1]

ToUpper, ToLower-character and string capitalization conversions

Code files:Unit Unit1;
Interface
Uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls;
Type
TForm1 = Class (Tform)
Button1:tbutton;
Button2:tbutton;
Button3:tbutton;
Button4:tbutton;
Procedure Button1Click (Sender:tobject);
Procedure Button2click (Sender:tobject);
Procedure Button3click (Sender:tobject);
Procedure Button4click (Sender:tobject);
End
Var
Form1:tform1;
Implementation
{$R *.DFM}
Uses Character;
{Character.toupper}
Procedure Tform1.button1click (Sender:tobject);
Var
C:char;
str:string;
Begin
c: = ToUpper (' a ');
str: = ToUpper (' Delphi ');
Showmessagefmt ('%s,%s ', [C, str]); {A, DELPHI}
End
{Character.tolower}
Procedure Tform1.button2click (Sender:tobject);
Var
C:char;
str:string;
Begin
c: = ToLower (' A ');
str: = ToLower (' Delphi ');
Showmessagefmt ('%s,%s ', [C, str]); {A, Delphi}
End
{The corresponding API functions: Windows.charupper, Windows.charlower}
Procedure Tform1.button3click (Sender:tobject);
Var
C1,c2:char;
Begin
C1: = Char (Charupper (Pchar (' a ')));
C2: = Char (Charlower (Pchar (' B ')));
Showmessagefmt ('%s,%s ', [C1, C2]); {A, B}
End
{Previously sysutils: uppercase, lowercase}
Procedure Tform1.button4click (Sender:tobject);
Var
s1,s2:string;
Begin
S1: = Uppercase (' Delphi ');
S2: = lowercase (' Delphi ');
Showmessagefmt ('%s,%s ', [S1, S2]); {Delphi, Delphi}
End
End.