Zeit seit Systemstart und aktuelle Zeit abfragen

[Binärbaum]

Der letzte Abschnitt der Source müsste so sein:

Delphi-Quellcode:

var
  Form1: TForm1;
  mils: Integer;//muss ein IntegerTyp sein (z.B. Integer, od. LongInt od. Cardinal)
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 mils:= GetTickCount;
 label4.Caption := 'Der PC läuft seit ' + InttoStr(mils) + ' Millisekunden!';
end;