Interne Zahlendarstellung

[g0dlike87]

Habe mein Timer nochmals überarbeitet, wollte ja so machen das man im Eingabefeld etwas eingibt und die Zahl zählt er dann runter und fährt PC runter wenn es bei 0 ist.
Das hab ich erstmal alles weggelassen und nur eine Variable deklariert, die sich jede Sek um eins verringern soll und dann per Startkopf anfangen soll und in das Label schreiben.
Er kompiliert das Programm auch ohne Fehler, jedoch ist das keine Anwendung oder Quelltext zu sehen, es ist dann plötzlich alles weg, weiß einer die Ursache und kann mir ein Tipp geben wie ich das mit dem Eingabefeld hinbekomme, das er daraus die Zahl einließt?

Delphi-Quellcode:

unit time;

interface

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

type
  TTIMER = class(TForm)
    TIMER: TLabel;
    Zeit: TLabel;
    Edit: TEdit;
    Restzeit: TLabel;
    Label1: TLabel;
    Start: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure StartClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  TIMER: TTIMER;

implementation

{$R *.DFM}

    VAR x : INTEGER;

procedure TTIMER.Timer1Timer(Sender: TObject);


  begin

      x := 5400;
      x := x - 1;

  end;

procedure TTIMER.StartClick(Sender: TObject);
  begin

      Label1.Caption := IntToStr(x);

  end;

end.