Delphi-Quellcode:
unit Unit2;
procedure TForm2.Button1Click(Sender: TObject);
var
Ti1, Ti2: Integer;
// Ti1:Startzeit Ti2: Stoppzeit
begin
Ti1 und Ti2 werden nicht initialisiert.
Beim Start wird Ti1 zugewiesen, aber der Wert ist nicht mehr vorhanden wenn die Methode verlassen wird (lokale Variable)!
Daher ist beim 'Stop' bei der Berechnung
IntToStr(Ti2 - Ti1);
das Ti1 wieder, weil nicht initialisiert, irgendein zufälliger Wert.