procedure TForm1.Button1Click(Sender: TObject);
var
de,da,di:Tdatetime;
ev,ho,nap ,ora,perc,mperc,milisec:word;
begin
de:=encodedate(2001,1,14)+encodetime(23,01,01,01);
da:=encodedate(2001,1,15)+encodetime(1,12,20,0);
di:=da-de;
decodedate(di,ev,ho,nap);
decodetime(di,ora,perc,mperc,milisec);
label1.Caption:=inttostr(ev-1899);
label2.Caption:=inttostr(ho-12);
label3.Caption:=inttostr(nap-30);
label4.Caption:=inttostr(ora);
label5.Caption:=inttostr(perc);
label6.Caption:=inttostr(mperc);
label7.Caption:=inttostr(milisec);
end;