procedure in Checkbox nicht nochmal in OnShow schreiben?

[malo]

Delphi-Quellcode:

procedure EineProzedur; // Name kann man (fast) beliebig wählen, sollte dann aber auch beim Aufruf geändert werden!
begin
if Form2.checkbox15.Checked then
    begin
      Form2.blau.Enabled:=True;
      Form2.pink.Enabled:=True;
      Form2.E12z.Enabled:=True;
      Form2.blau.Color:=clWindow;
      Form2.pink.Color:=clWindow;
      Form2.E12z.Color:=clWindow;
      begin
        If (E12Z.ItemIndex = 1)
        Or (E12Z.ItemIndex = 3)
        Or (E12Z.ItemIndex = 4)
        Or (E12Z.ItemIndex = 5) Then
        Begin
          A12Z.Enabled:=False;
          A12Z.Color:=cl3DLight;
        end else
        begin
          A12Z.Enabled:=True;
          A12Z.Color:=clWindow;
        end;
      end;
    end else
    begin
      Form2.blau.Enabled:=False;
      Form2.pink.Enabled:=False;
      Form2.E12z.Enabled:=False;
      Form2.A12z.Enabled:=False;
      Form2.blau.Color:=cl3DLight;
      Form2.pink.Color:=cl3DLight;
      Form2.E12z.Color:=cl3DLight;
      Form2.A12z.Color:=cl3DLight;
   end;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  EineProzedur;
end;

procedure TForm2.CheckBox15Click(Sender: TObject);
begin 
  EineProzedur;
end;

Du musst einfach nur eine eigene Prozedur schreiben. Einfach das Schlüsselwort "Procedure", danach der Prozedurenname (ggf. Parameter), dann ein Semikolon. Und danach der Anweisungsblock (Begin-End). In den Anweisungsblock schreibst du deinen Code rein. Dann kannst du später die Prozedur aufrufen. Aber achtung! Die Prozedur muss VOR dem COde, der die Prozedur aufruft!

//edit: Das natürlich nur, wenn die Prozedur vorher nicht deklariert wurde, zum Beispiel als Methode