Fehlermeldung

[Nemesis333]

var auss, kl, wei, tak, ausd, kk, ge: byte;


procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
edit1.text:=(inttostr(random(7)+12));
auss:=edit1.text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
edit2.text:=(inttostr(random(7)+12));
kl:=edit2.text;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
randomize;
edit3.text:=(inttostr(random(7)+12));
wei:=edit3.text;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
randomize;
edit4.text:=(inttostr(random(7)+12));
tak:=edit4.text;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
randomize;
edit5.text:=(inttostr(random(7)+12));
ausd:=edit5.text;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
randomize;
edit6.text:=(inttostr(random(7)+12));
kk:=edit6.text;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
randomize;
edit7.text:=(inttostr(random(7)+12));
ge:=edit7.text;
end;