Kleine Übung, finde Fehler jedoch nicht :<

[silent-ace]

Hallo Leute, hab mal bissel mit Delphi angefangen zu Arbeiten
und dachte mir, ein kleinen simples Porgramm für den einstieg
kann da nicht schaden, da ich keine Vorkenntnisse im Bereich
Programmieren habe, würde ich gerne eure Hilfe bemühen :>

Projekt:
- kleines Verschlüsslungsprogramm

Aktion:
- ein Text (Wort) soll, so nach dem Prinzip des Cäsar-Codes verschlüsselt werden

Problem:
- Programm fertig gecodet, keine Fehler werden angezeigt, aber es funktioniert nicht :<

Quelltext:

Delphi-Quellcode:

unit Ucode;

interface

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

type
  TFrm_Kodieren = class(TForm)
    Btn_Kodieren: TButton;
    Edt_Eingabe: TEdit;
    Edt_Ausgabe: TEdit;
    Lbl_Eingabe: TLabel;
    Lbl_Ausgabe: TLabel;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Schlieen1: TMenuItem;
    Info1: TMenuItem;
    Hilfe1: TMenuItem;
    Info2: TMenuItem;
    procedure Btn_KodierenClick(Sender: TObject);
    procedure Schlieen1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Frm_Kodieren: TFrm_Kodieren;
  orginal,code: string;

implementation

{$R *.dfm}

procedure TFrm_Kodieren.Btn_KodierenClick(Sender: TObject);

var i:integer;

begin

orginal:=Edt_Eingabe.Text;

For i:=1 To length (code)
DO  code[i]:=chr(ord(orginal[i])+3);

Edt_Ausgabe.Text:=code;

end;

procedure TFrm_Kodieren.Schlieen1Click(Sender: TObject);
begin
close;
end;

end.

Weiß da einer Hilfe ?

bb. silent-ace