Was ist falsch an diesem Code, um die Groß-/Kleinschreibung einer Zeichenkette aufzuheben?

Question

Hier ist mein Versuch, das Problem zu lösen About.com Delphi-Herausforderung zum Aufheben der Groß-/Kleinschreibung einer Zeichenkette .

unit challenge1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
   check = 65..90;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var s1,s2 :string;
  int : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  checks : set of check;
begin
  s1 := edit1.Text;
  for i := 1 to 20  do
  begin
    int  :=ord(s1[i]) ;
    if int in checks then
      insert('  ',s1,i-1);
  end;
  showmessage(s1); 
end;

end.

check ist eine Menge, die Großbuchstaben enthält. Wenn also ein Großbuchstabe auftritt, fügt die Einfügefunktion ein Leerzeichen ein, bevor der Buchstabe auftritt (innerhalb der s1 string), aber mein Code tut nichts. ShowMessage zeigt nur den Text so an, wie er eingegeben wurde Edit1 . Was habe ich falsch gemacht?