Ayuda con rango de fechas

[microbiano]

bien resulta que uso la siguiente funcion para determinar las fechas

Código Delphi [-]
function TFcobro.MesesANombres(D1, D2: TDate): TStrings;
var
  i, m, Tot: Integer;
begin
  Result:= TStringList.Create;
  Tot:= MonthsBetween(D1, D2);
  m:= MonthOf(D1);// - 1;
  for i:= MonthOf(D1) to Tot + MonthOf(D1)-1 do
  begin
    if m = 12 then
      m:= 1
    else
      Inc(m);
    Result.Add(LongMonthNames[m])
  end;
end;

y hago la llamada de la siguiente manera.

Código Delphi [-]
 mmo1.Clear;
 mmo1.ScrollBars:= ssVertical; //según las fechas de tu último post, vas a necesitar esta línea...
 mmo1.Lines:= MesesANombres(StrToDate('01/02/2011'), StrToDate('30/04/2011'));

en este caso me muestra 2 meses que son marzo y abril, cuando deberia ser marzo, sin embargo cuando hago la llamada de al siguiente manera me muestra solo marzo.

Código Delphi [-]
 mmo1.Clear;
 mmo1.ScrollBars:= ssVertical; //según las fechas de tu último post, vas a necesitar esta línea...
 mmo1.Lines:= MesesANombres(StrToDate('01/02/2011'), StrToDate('01/04/2011'));

hay alguna sugerencia para que determine los meses correctamente ya trate de truncar el resultado para que me tome el valor real pero no funciona.