Text * Variabel in Memo untereinander ausgeben

[Gast]

Danke Elite, glaube, dass das funktionieren würde, doch irgendwie lädt meiner ganz lange wenn ich mit memo1.lines.add probiere das Programm zu starten. Ich denke, dass von Khab der Beitrag wichtig ist. Aber habe keine Ahnung wie ich das umschreiben kann ... kann mir das jmd von euch vielleicht machen ?

Code:

var
  Form1: TForm1;
  Key: Char;
  X: integer;

implementation

{$R *.dfm}

function RandName(Length : Integer):String;
var
  i : Byte;
begin
  randomize();
  result := '';
  SetLength(Result,Length);
  for i := 0 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
end;

procedure TForm1.Edit1Change(Sender: TObject);
var XY : integer;
begin
  XY := 30;
  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;