Rechnen mit dem Aktuellen Jahr unter Delphi

[Deven]

Hallo zusammen

Ich bin ganz neu hier und habe eine Frage.

Ich habe ein Programm in Delphi geschrieben bei dem ich
mit der aktuellen Jahreszahl (2003) rechnen muss/möchte.

Momentan habe ich es so gelöst das der User selber das Auktuelle
Jahr eingeben muss. Dies würde ich aber gerne automatisch ermitteln
lassen von Delphi.
Ich habe jetzt schon etwas länger gesucht aber nichts gefunden was
mir hilft bzw womit ich zurecht komme.
Könnt ihr mir da helfen?

Ich poste hier mal den ProgrammCode von dem Button wo es rein soll.

Code:

//Rechnen button
procedure TForm1.Button1Click(Sender: TObject);
var jaktuell,alter,tag,ghal:integer;
gott:string;
mode:byte;
begin
ghal := 0;

jaktuell := StrToInt(edit2.Text);
alter := StrToInt (Edit1.Text);
tag := StrToInt(edit3.text);
gott := ComboBox1.Text;

if alter = 0
 then
  begin
   showmessage ('Bitte geben sie Ihr gewünschtes Alter ein!');
  end
 else
  begin

   jaktuell := jaktuell-alter;
   ghal := jaktuell-1973;


   if gott = 'Ihre Gottheit'
    then
     begin
      showmessage ('Bitte wählen Sie eine Gottheit aus.');
     end
    else
     begin
      if ghal > 0
       then
        begin
         Label1.Caption := 'Sie sind am '+IntToStr(tag)+'.'+' '+gott+'.'+' '+IntToStr(ghal)+' nach Hal geboren.';
        end
       else
        begin
         gHal := ghal*(-1);
         Label1.Caption := 'Sie sind am '+IntToStr(tag)+'.'+' '+gott+'.'+' '+IntToStr(ghal)+' vor Hal geboren.';
        end;
   end;
 end;

end;

jAktuell soll die Aktuelle Jahreszahl darstellen.

Ich hoffe ihr könnt mir da weiterhelfen =)

Gruss Deven