Text * Variabel in Memo untereinander ausgeben

[Khabarakh]

So, hab jetzt mal das ganze Programm angeschaut.
Gestartet, auf Panel1 geklickt, "Zu wenig Arbeitsspeicher" .
Also:

1. Du solltest Backspace im Edit1 zulassen.
2. Button1 wird deaktiviert, wenn das Kennwort zu lang ist. ok. Aber der Vorgang wird doch mit Label1 gestartet .
3. Der Fehler: String[0] ist die Länge des Strings. Der Inhalt des Strings fängt erst bei String[1] an .
  for i :=1 to Length do 4. Nett wäre es noch, wenn Fehleingaben abgefangen werden (mit try...except).
5. Wofür die globale Variable Key? Die benutzt du doch sowieso nicht, es kommt nur zu Überschneidungen mit der Key-Variable im KeyPress Event.
6. XY kannst du gleich als Konstante deklarieren, wenn du ihr nur einen festen Wert zuweißt.

Lange Rede kurzer Sinn:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Edit2: TEdit;
    procedure Panel1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    X: integer;  // !
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

function RandName(Length : Integer):String;
var
  i : Byte;
begin
  result := '';
  SetLength(Result,Length);
  for i :=1 to Length do            // !
  begin
    Result[i] := Char(Random(25)+65);
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0' .. '9'])then
  key:=#0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  X := 12;
  randomize               // !
end;

procedure TForm1.Edit1Change(Sender: TObject);
const XY = 30;            // !
begin
  if StrToInt(Edit1.text) > (XY)
  then begin
    StatusBar1.Panels[0].Text := 'Kennwörter mit mehr als '+inttostr(XY)+' Zeichen';
    Button1.Enabled := false;
  end;
  if StrToInt(Edit1.text) < (XY)
  then begin
    StatusBar1.Panels[0].Text := '';
    Button1.Enabled := true;
  end;
  X := StrToInt(Edit1.Text);
end;

procedure TForm1.Panel1Click(Sender: TObject);
var i: Byte;
begin
  for i := 1 to strtoint(Edit2.Text) do
  Memo1.Lines.Add(RandName(X));
end;

end.

PS: EIGVHMMQXE
BRMBQKGTOY
NMAELUMJTU
WJIUVMQQAG
XUKVUXYKUC
JSADTBDCMG
HBXUREJJCK
OCRQHFFPCX
KRYAPKDRNK
COVWQTHCRM


[EDIT]
Panel1 habe ich gelöscht, dafür bei Button1 und OnClick Panel1Click eingetragen. Ich denke, dass du es so auch hast.