Geburtsdatum errechnen

[Kunoishi]

da ich mit den Berechnungen des Geburtstags noch nicht so recht weiter komme, habe ich mal umgedacht und mein Problem anderes angefast. Wo ich ein wenig besser klarkomme und eigentlich schon ein Ergebnis habe.

Hierzu verwende ich ein Stringgrid (Dazu hatte ich was hier im Forum gefunden)

Delphi-Quellcode:

procedure TForm.StringGridKeyPress(Sender: TObject;
  var Key: Char);
begin
 with StringGrid do
 begin
  if col = 6 then if key = Chr(13) then calcYears;
 end
end;


procedure TForm.calcYears;
var heute: TDateTime;
    geb, jahr, monat, tag: Word;
    i,code: Integer;
begin
 heute := Now;            
 DecodeDate(heute, jahr, monat, tag); 
 with StringGrid do
 begin
  EditorMode := True;                 
  if Cells[6,row] <> '' then 
  begin
   Val(Cells[6,row], geb, code);     
   Cells[3,row] := IntToStr(jahr-geb) 
  end
 end
end;

bis hierhin geht auch alles
jetzt habe ich aber nicht nur das Jahr für die Berechnungsgrundlage sondern möchte das Datum verwenden (20.12.1971)
damit die Berechnung genauer wird.
wie bekomme ich das den jetzt nur hin