كيف أختصر هذا الكود؟

[ALG2009]

السلام عليكم

هل يمكن إختصار هذا الكود؟

كود :

procedure TForm2.SpeedButton1Click(Sender: TObject); begin if panel1.tag =0 then   begin    panel1.Height:=345;    panel1.Tag:=1;    panel2.Height:=40;    panel2.Tag:=0;    panel3.Height:=40;    panel3.Tag:=0;    panel4.Height:=40;    panel4.Tag:=0;   end else   begin    panel1.Height:=40;    panel1.Tag:=0;   end; end; procedure TForm2.SpeedButton2Click(Sender: TObject); begin if panel2.tag =0 then   begin    panel1.Height:=40;    panel1.Tag:=0;    panel2.Height:=345;    panel2.Tag:=1;    panel3.Height:=40;    panel3.Tag:=0;    panel4.Height:=40;    panel4.Tag:=0;   end else   begin    panel2.Height:=40;    panel2.Tag:=0;   end; end; procedure TForm2.SpeedButton3Click(Sender: TObject); begin if panel3.tag =0 then   begin    panel1.Height:=40;    panel1.Tag:=0;    panel2.Height:=40;    panel2.Tag:=0;    panel3.Height:=345;    panel3.Tag:=1;    panel4.Height:=40;    panel4.Tag:=0;   end else   begin    panel3.Height:=40;    panel3.Tag:=0;   end; end; procedure TForm2.SpeedButton4Click(Sender: TObject); begin if panel4.tag =0 then   begin    panel1.Height:=40;    panel1.Tag:=0;    panel2.Height:=40;    panel2.Tag:=0;    panel3.Height:=40;    panel3.Tag:=0;    panel4.Height:=345;    panel4.Tag:=1;   end else   begin    panel4.Height:=40;    panel4.Tag:=0;   end; end;