아래 소스를 참고 하세요..

procedure TForm1.Button1Click(Sender: TObject);
Var
   iGap : Integer;
   dtTemp : TDateTime;
begin
  dtTemp:= StrToDate('98-09-10');
  iGap:= Round(Now-dtTemp);
  ShowMessage(IntToStr(iGap))
end;


From 류..