[Страдалецъ]

Так устроит?

Код:

Type
  TOperation = (opAdd,opSub,opDiv,opMul);

Var
  Operation: TOperation;

procedure TForm1.Button1Click(Sender: TObject);
begin
 case Operation
 of opMul: Label1.Caption := 'Умножение';
    opDiv: Label1.Caption := 'Деление';
    opSub: Label1.Caption := 'Вычитание';
    opAdd: Label1.Caption := 'Сложение';
 end;
 Inc(Operation);
 if Operation > opMul then Operation := opAdd;
end;