Datum-Countdown

[Beginner2013]

Delphi-Quellcode:

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

geht leider nicht.