Jak pobrać kontrolować okienka?

Mam poważny problem! Mam w programie kilka okienek, które uruchamiam po kliknięciu w button. Po naciśnięciu buttona, okienko które wcześniej było wyświetlane ma się zamknąć i otworzyć inne te na które wskazuje button.
Problem jest tego typu,że chcę umieścić to wszystko w jednej procedurze buttonClick!
Zrobiłem to w ten sposób, że każdy button ma swój TAG i za pomocą taga rozpoznaje, które okienko ma się otworzyć. Niestety mój pomysł jest dość toporny :

procedure TF_Start.BL_Click(Sender: TObject);
var i:Byte;
begin
if not Wlaczone[TLabel(Sender).Tag-8] then begin
 for i:=1 to 7 do
  if Wlaczone[i] then begin
   case i of
   2,7:F_UstawTest.Free;
   3  :F_Kategorie.Free;
   4  :F_Heigh.Free;
   5  :F_Opcje.Free;
   6  :F_Autor.Free;
   end;
  Wlaczone[i]:=False;
  end;
 case TLabel(Sender).Tag-8 of
 2:begin
   TestKO:=True;
   Application.CreateForm(TF_UstawTest, F_UstawTest);
   ST_Nazwa.Caption:='U S T A W I E N I A  T E S T U';
   end;
 3:begin
   TestKO:=False;
   Application.CreateForm(TF_Kategorie, F_Kategorie);
   ST_Nazwa.Caption:='K A T E G O R I E';
   end;
 4:begin
   Application.CreateForm(TF_Heigh, F_Heigh);
   ST_Nazwa.Caption:='H I G H S C O R E S';
   end;
 5:begin
   Application.CreateForm(TF_Opcje, F_Opcje);
   ST_Nazwa.Caption:='O P C J E';
   end;
 6:begin
   Application.CreateForm(TF_Autor, F_Autor);
   ST_Nazwa.Caption:='A B O U T';
   end;
 7:;
 end;
end else
 case TLabel(Sender).Tag-8 of
 3:F_Kategorie.BringToFront;
 4:F_Heigh.BringToFront;
 5:F_Opcje.BringToFront;
 6:F_Autor.BringToFront;
 7:F_UstawTest.BringToFront;
 end;
end;

Jak go skrócić !! Nie mam zielonego pojęcia jak to zrobić ! Jestem na razie w fazie nauki więc mam z tym problem.

Za wszystkie podopwiedzi dziękuję!!!!!!!!!
Jak co to możecie napisać na mój E-Mail [email protected]