Uhrzeit - Wie lange ist mein Programm schon offen..

[BullsEye]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
VAR
    startzeit : TTime;
    endzeit   : TTime;
    diverenz  : String;
begin
  Label1.Caption := TimeToStr(time);
  startzeit := StrToTime(edit1.text);
  endzeit := StrToTime(label1.Caption);
  diverenz := TimeToStr(endzeit - startzeit);
  Label2.Caption := diverenz;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := TimeToStr(time);
end;