Passwortabfrage

[Sylux]

Hallo,
ich bin noch ein Delphifrischling^^ und
ich will ein Programm schreiben bei dem man einen Namen eingeben muss und dann das richtige Passwort dafür.

Code:

unit Keygen;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
     serie: integer;
     name:string;
begin
     if Edit1.Text = '' then
       Form4.Showmodal
else
     name:= Edit1.text;
     serie:= ord(name[1]);

if
   edit2.text=edit1.text then

   Form5.Showmodal

   else
   Form4.Showmodal









end;

end.

Also der 1. Buchstabe von "name" soll in den ASCII Wert umgewandelt werden und dieser Wert soll dann die "serie" sein.
Aber irgendwie klappt das nicht. Es wird fehlerfrei "compiliert".
Aber wenn ich z.B. A als "name" eingebe und "65" als Serie dann kommt auch immer das Fenster mit der Fehlermeldung: falsch.

Woran liegt das?
Wo liegt der Hund begraben.

Danke schonmal