1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var bla : integer;
procedure TForm1.Button2Click(Sender: TObject);
begin
  randomize;
  GroupBox1.show;
  GroupBox1.Caption := 'Prozentrechnungen';
  Label2.Caption := '*p*t/100*3670';
  bla := random(7);
  Label3.Caption := bla;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button2Click(Sender: TObject);
var
  bla: integer; // Fehler1: das ist dir etwas hoch gerutscht
begin
  randomize;
  GroupBox1.show;
  GroupBox1.Caption := 'Prozentrechnungen';
  Label2.Caption := '*p*t/100*3670';
  bla := random(7);

  // Fehler2: Eine Zahl ist kein Text, deswegen zuerst "umwandeln"
  Label3.Caption := IntToStr(bla);
end; // TForm1.Button2Click