1:
2:
3:
4:
5:

case I of
  0: //berechnung von qc
  1: //berechung von anderes
  //usw.
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Welche Aktion soll es denn sein?
  case (Sender as TButton).Tag of
    0: ShowMessage('1. Aktion');
    1: ShowMessage('2. Aktion');
    2: ShowMessage('3. Aktion');
  end;
  // nächste Aktion für den nächsten Klick
  (Sender as TButton).Tag := ((Sender as TButton).Tag +1) mod 3;
end;					

1:

var btnClickCounter: integer = 0;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

 ...
 inc(btnClickCounter);
 case btnClickCounter of
  1: begin
      //Berechnung von QC
     end;
  2: begin
      //machwas
     end;
  3: begin
      //mach nochwas
     end;
  4: begin
      //BtnClickCounter zurücksetzen
      btnClickCounter:= 0;
      //und die Button.Click-Prozedure aufrufen
      meinButton.onClick(self);
     end;
 end;