// походу возвращает скока дней - передаешь день dd и месяц m (от 1 до 12)
// високосные года не учитывает
function dnei(dd,m:integer):integer;
var k,d:integer;
begin
for k:=1 to m do
begin
d:=31;
if k=2 then d:=29;
if (k=4) or (k=6) or (k=9) or (k=11) then d:=30;
dd:=dd+d;
end;
dnei:=dd;
end;

// а тут типа берется текущая дата и вычитается...
procedure TForm1.Button1Click(Sender: TObject);
var dat:TDateTime;
a,b:integer;
begin
dat:=date;
a:=dnei(strtoint(edit1.Text),combobox1.ItemIndex);
b:=dnei(strtoint(FormatDateTime('d',dat)),strtoint(FormatDateTime('m',dat))-1);

if a<b then a:=a+365;
label2.Caption:='Дней до денюхи осталось: '+inttostr(a-b);
end;