Fenster erscheinen und wieder verschwinden lassen

[florpp]

Delphi-Quellcode:

//Globale variablen
var
  Form5: TForm5;
  b: integer;
  c: integer;
  d: integer;
//Globale variablen

procedure TForm5.Timer1Timer(Sender: TObject);//Timer2 Intervall: 5000
  begin
  d := 1;
  end;

procedure TForm5.FormCreate(Sender: TObject);
  begin
  Form5.AlphaBlendValue := 0;
  b := 0;
  c := 0;
  d := 0;
  end;

procedure TForm5.Timer2Timer(Sender: TObject);//Timer2 Intervall: 100
  begin
  if d = 0 then
    begin
    repeat
    if c = 0 then
      begin
      Form5.AlphaBlendValue := b;
      if b = 254 then
        begin
        c := 1;
        end;
      b := b +1;
      end;
    until b = 255;
    end;
  if d = 1 then
    begin
    repeat
    Form5.AlphaBlendValue := b;
    b := b - 1;
    if b = 1 then
      begin
      Form5.Close;
      d := 2;
      end;
    until b = 0;
    end;

  end;

Der Quellcode sollte ein Fenster (Form5) erscheinen und wieder verschwinden lassen,
das klappt auch, aber kurze Zeit danach hängt sich das Programm auf.

Woran liegt das???