Alter berechnen!

[thiagojonas]

Hallo,
ich habe da mal wieder ein kleines problem...

Ich habe eine DateTimePicker und zwei variablen

datum:string;
datum := DateToStr(Now);

time:string;
time := DateToStr(DateTimePicker.Date);

Ich möchte jetzt sozusagen datum - time berechnen und dann das "alter" anzeigen lassen, z.B. über ShowMessage.

Wie folgt bin ich vorgegangen.

Delphi-Quellcode:

procedure TForm7.datum_dateChange(Sender: TObject);
var alter:extended;
begin
  time := DateToStr(datum_date.Date);
  alter := StrToDate(datum) - StrToDate(time);
  if (alter) >= 18 then
begin
  Tabsheet4.TabVisible := true;
  end
else
  if (alter) < 18 then
begin
  Tabsheet4.TabVisible := false;
  end;
end;

Funktioniert irgendwie nicht ganz.
Wenn das augewählte Datum 1995, dann wir der Tabsheet nicht auf false gesetzt
Woran liegt das?