
(*
 Delphi Object and Component Reference
#{bmc bm10.BMP} UpCase example
The following code uppercases every other character in the text of an edit control when the user clicks the button.
*) 
var
  s : string;
  i : Integer;
begin
  { Get string from TEdit control }
  s := Edit1.Text;
  for i := 1 to Length(s) do
    if i mod 2 = 0 then s[i] := UpCase(s[i]);
  Edit1.Text := s;
end; 
