Datum-Countdown

[Beginner2013]

Aktuell habe ich das hier in Form1:

Delphi-Quellcode:

procedure TForm1.Termincountdown1Click(Sender: TObject);
var
Test : Integer;
begin
Form13.Show;
Form13.Caption := 'Termincountdown';
showmessage(dateToStr(date));
showmessage(edit10.Text);
Test := trunc(StrToDate(Edit10.Text) - date);
Form13.Label5.Caption := InttoStr(Test);
end;

Auf Form1 habe ich ein Edit (Edit10) hier möchte ich ein Datum eintragen.
Auf Form13 habe ich ein Label (Label5) mit diesem möchte ich anzeigen wie viele Tage es noch bis zu dem Datum sind welches in Form1 in Edit10 eingegeben wurde.

Delphi-Quellcode:

showmessage(dateToStr(date));
showmessage(edit10.Text);

...zeigen beide das richtige an. Die Erste Message: 27/May/13 und die zweite 28/May/13 (wenn eingeben.

Form13:

Delphi-Quellcode:

unit Unit13;

interface

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

type
  TForm13 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

{$R *.dfm}

end.