procedure TForm1.Button1Click(Sender: TObject);
var
  tmpYear, nYear, nMonth, nDay : Word;
  cSex: String;
begin
  decodeDate(DateTimePicker1.Date, nYear, nMonth, nDay);

  tmpYear := strToInt(Copy(edit1.Text,1,2));

  cSex := Copy(edit1.Text,7,1);

  if (cSex = '1') or (cSex = '2') then
    tmpYear := 1900 + tmpYear
  else
    tmpYear := 2000 + tmpYear;

  tmpYear := nYear - tmpYear;  

  ShowMessage(Format('%-.2d세',[tmpYear]));

end;

저도 초보인데 검색해보니 '홍성락'님께서 올리신 소스가 적당한것 같아 올려드립니다.
멋대로 답변글 소스 다시 올려서 죄송합니다...(홍성락님께 특히 죄송 ^^;;)
var
    D1,D2 : string;
    M1, M2, M : integer;
begin
    D1 := '2000-08-28';
    D2 := '2002-10-28';

    M1 := (StrToint(copy(D2,1,4)) - StrToint(copy(D1,1,4)))*12; //연도
    M2 := StrToint(copy(D2,6,2)) - StrToint(copy(D1,6,2));        //월

    M := M1 + M2;
    Label1.Caption := '개월:' + intToStr(M);
end;
//------------------------------------------------
일수는
var
    D1,D2 : TDateTime;
    DifD : Double;
begin
    D1 := StrToDate('2000-08-28');
    D2 := StrToDate('2002-10-28');
    DifD := D2-D1;
    Label1.Caption := '날짜:' + intToStr(Trunc(DifD));
end;

답변해 주셔서 감사합나다.
해결했습니다.
초보라서 막막했는데 도움을 주셔서 해결하니 마음이 뿌듯합니다.^^
좋은 하루되세요.

답변해 주셔서 감사합나다.
해결했습니다.
초보라서 막막했는데 도움을 주셔서 해결하니 마음이 뿌듯합니다.^^
좋은 하루되세요.