оптимизация кода

procedure TForm1.Image1Click(Sender: TObject);
begin
if a=5 then begin
          z1:=z1+1;
          e:=e+1;
          if z1=1 then begin
          case e of
          1: begin Panel1.Color:=clfuchsia; end;
          2: begin ShowMessage('ìîæíî âûäåëèòü òîëüêî 3 êàðòû'); e:=e-1; z1:=z1-1; end;
          end; end else
          begin Panel1.Color:=clbtnface; z1:=0; e:=e-2; end;
      end
    else
    begin
      q:=1;
      videlenie;
      Panel1.Color:=clgray;
      end;  
end;
 
procedure TForm1.Image2Click(Sender: TObject);
begin
if a=5 then begin
    z2:=z2+1;
    e:=e+1;
    if z2=1 then begin
          case e of
          1: begin Panel2.Color:=clfuchsia; end;
          2: begin ShowMessage('ìîæíî âûäåëèòü òîëüêî 3 êàðòû'); e:=e-1; z2:=z2-1; end;
          end; end else
          begin Panel2.Color:=clbtnface; z2:=0; e:=e-2; end;
      end
    else
    begin
      q:=2;
      videlenie;
      Panel2.Color:=clgray;
     end   
end;
 
procedure TForm1.Image3Click(Sender: TObject);
begin
if a=5 then begin
    z3:=z3+1;
    e:=e+1;
    if z3=1 then begin
          case e of
          1: begin Panel3.Color:=clfuchsia; end;
          2: begin ShowMessage('ìîæíî âûäåëèòü òîëüêî 3 êàðòû'); e:=e-1; z3:=z3-1; end;
          end; end else
          begin Panel3.Color:=clbtnface; z3:=0; e:=e-2; end;
     end
    else
    begin
      q:=3;
      videlenie;
      Panel3.Color:=clgray;
 
end; end;
 
procedure TForm1.Image4Click(Sender: TObject);
begin
if a=5 then begin
    z4:=z4+1;
    e:=e+1;
    if z4=1 then begin
          case e of
          1: begin Panel4.Color:=clfuchsia; end;
          2: begin ShowMessage('ìîæíî âûäåëèòü òîëüêî 3 êàðòû'); e:=e-1; z4:=z4-1; end;
          end; end else
          begin Panel4.Color:=clbtnface; z4:=0; e:=e-2; end;
    end
    else
    begin
    q:=4;
videlenie;
Panel4.Color:=clgray;
end; }end;

procedure ImageClick(Sender: TObject);
var i: integer;
begin
i := StrToInt(TImage(Sender).Name[6])
if a=5
  then
    begin
      z[i]:=z[i]+1;
      e:=e+1;
      if z[i]=1
        then
          begin
            case e of
              1: begin 
                   with TPanel(FindComponent('Panel' + IntToStr(i) do Color:=clfuchsia
                 end;
              2: begin
                   ShowMessage('можно выделить только 3 карты');
                   e:=e-1;
                   z[i]:=z[i]-1
                 end;
            end
          end
        else
          begin
            with TPanel(FindComponent('Panel' + IntToStr(i) do Color:=clbtnface;
            z[i]:=0;
            e:=e-2
          end;
    end
  else
    begin
      q:=i;
      videlenie;
      with TPanel(FindComponent('Panel' + IntToStr(i) do Color:=clgray
    end  
end;