Mit Delphi Alter berechnen

[Funnygirly]

Hallo,

ich habe hier eine Aufgabe, komme aber nicht richitg damit zurecht:

-In einem Formular soll man das Alter in einer Edit-Komponente angeben können. Anschließend wird das Alter in Tage,Stunden,Minuten und Sekunden umgerechnet und auf dem Formular ausgegeben.

Kann mit vielleicht jemand dabei helfen wie man das am besten macht?

Ich habe schon mal angefangen, komme aber nicht weiter...in dem Abteil "begin" ist etwas falsch..aber was? was soll ich da anderst machen udn warum?
so sieht es bei mir aus:

Delphi-Quellcode:

unit uAlter;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmAlter = class(TForm)
    Label1: TLabel;
    EdtAlter: TEdit;
    Label2: TLabel;
    EdtTage: TEdit;
    EdtStunden: TEdit;
    EdtMinuten: TEdit;
    EdtSekunden: TEdit;
    LblTage: TLabel;
    LblStunden: TLabel;
    LblMinuten: TLabel;
    LblSekunden: TLabel;
    BtnAlter: TButton;
    procedure BtnAlterClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FrmAlter: TFrmAlter;

implementation

{$R *.dfm}

procedure TFrmAlter.BtnAlterClick(Sender: TObject);
var tag,stu,min,sek:integer;
begin

  Tage:=StrToInt(EdtTage.Text)*365;
  Stunden:=StrToInt(EdtStunden.Text)*8760;
  Minuten:=StrToInt(EdtMinuten.Text)*525600;
  Sekunden:=StrToInt(EdtSekunden.Text)*31536000;

  Tage:=IntToStr(EdtTage.Text);
  Stunden:=IntToStr(EdtStunden.Text);
  Minuten:=IntToStr(EdtMinuten.Text);
  Sekunden:=IntToStr(EdtSekunden.Text);

end;

end.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]