Endlosschleife ?

[svenwel.de]

Hallo, ich hab folgendes Problem:

Delphi-Quellcode:

var
  Form1: TForm1;
  t1,t2 : TdateTime;

{ ...... }

procedure TForm1.FormCreate(Sender: TObject);
begin
  t1 :=0;
  t2 :=0;
end;


procedure TForm1.SpeedButton4Click(Sender: TObject);
var buffT1,buffT2 : TdateTime;
    i : integer;
begin

    i:=0;

    { Hier bliebt das Programm kleben }
    while Frac(t1) <> Frac(t2) do 
    begin
       t1 := incMinute(t1,15);
       inc(i);
    end;

    label7.Caption:=IntToStr(i);

end;

Wieso hört diese Schleife nicht auf ?