[lmikle]

нифига непонятно. можно как-то попроще объяснить?

возможно сделать так:

Код:

type
  TForm1 = class(TForm)
    ComboBox1 : TComboBox;
    ComboBox2 : TComboBox;
...

var
  mn : Integer;
begin
  if (ComboBox2.ItemIndex < ComboBox1.ItemIndex) And (ComboBox2.ItemIndex <> -1) Then
    Raise Exception.Create('конец периода раньше, чем начало.');
  if ComboBox2.ItemIndex = -1 then mn := 1
  else mn := ComboBox2.ItemIndex - ComboBox1.ItemIndex;

В результате ты имеешь кол-во месяцев (ну или ошибку, если неправильно выставлены комбики).
ComboBox'ы настроить надо:
1. Items - месяцы с 1 по 12 соотв.
2. Установить тип на выбор из списка.