hola vtdeleon:
el codigo que nos has expuesto, no funcionaria para los meses de diciembre, ni para los dias en que el mes siguiente tuviera menos dias el día en que estamos (por ejemplo 31 de octubre)
haciendo la pequeña corrección queda más o menos así
Código Delphi
[-]
var
fecha,tfecha:TDate;
dia,mes,ano:word;
begin
fecha:=now; DecodeDate(fecha,ano,mes,dia);
fecha:=fecha-dia+1; inc(mes);
if mes >12 then
begin
mes:=1;
inc(ano);
end;
tfecha:=EncodeDate(ano,mes,1); showmessage(copy(DateToStr(tfecha+2-fecha),1,2));
end;