Text * Variabel in Memo untereinander ausgeben

[Khabarakh]

Delphi-Quellcode:

function RandName(Length : Integer):String;
var
  i : Byte;
begin
//  randomize();  hier raus
  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;
  randomize  //und hier rein
end;

[EDIT]:

Delphi-Quellcode:

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

Globale Variablen sind pöse .
Verschiebe sie in den private-Teil von TForm1.

[EDIT2]
Natürlich nur Key und x .