uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
D1,D2: TDate;
R: Integer;
begin
D1:= StrToDate('07/01/2011');
D2:= StrToDate('07/03/2011');
R:= MonthsBetween(D1,D2);
ShowMessage('Meses comprendidos entre ' + DateToStr(D1) + ' y ' +
DateToStr(D2) + ': ' + IntToStr(R));
end;