SIMPEL Verschlüsselungs-Array-Problem mit Matritzen

[Spytrycer]

Eine Frage, ich schreib mal kurz das was bei mir bis jetzt Klappt:

type
TForm1 = class(TForm)
EdEingabe: TEdit;
EdMatrixK1: TEdit;
EdMatrixK2: TEdit;
EdMatrixK3: TEdit;
EdMatrixK4: TEdit;
EdAusgabe: TEdit;
BtVersch: TButton;
procedure BtVerschClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;


var
Form1: TForm1;
MatrixV : Integer;
MatrixK1, MatrixK2, MatrixK3, MatrixK4: Integer;
MatrixN: Integer;


implementation

{$R *.dfm}



procedure TForm1.BtVerschClick(Sender: TObject);
const Max = 10;
var i: Integer;
f: Integer;
Asc: Array[1..Max] of Integer;
Zw : Array[1..Max] of String;
begin
for i := 1 to Length(EdEingabe.Text) do
Asc[i] := ord(EdEingabe.text[i]);
MatrixK1 := StrToInt (EdMatrixK1.text);
MatrixK2 := StrToInt (EdMatrixK2.text);
MatrixK3 := StrToInt (EdMatrixK3.text);
MatrixK4 := StrToInt (EdMatrixK4.Text);
EdAusgabe.Text := IntToStr (Asc[1]);
end;




Würde das Klappen?