public
  count: byte;

      { Public declarations }

procedure TForm1.FormCreate(Sender: TObject);
begin
     count := 0;
end;

begin
if tquizfragen.FieldByName('L1').AsInteger = 1 then begin
  tquizfragen.first;
  tquizfragen.moveby(random(tquizfragen.RecordCount));

     end else
     Form4.Show;

     count:= count +1;

     case count of
     1: begin
     Lb_Stufe1.color := clred;
     Lb_Stufe15.color := clNone;
     end;

     2: begin
     Lb_Stufe1.color := clred;
     Lb_Stufe2.color := clNone;
     end;

     3: begin
     Lb_Stufe2.color := clred;
     Lb_Stufe3.color := clNone;
     end;

  end;
end;

with TLabel(FindComponent('LB_Stufe' + IntToStr(i))) do
begin
color:=clred;
end;