Form blendet sich einfach aus / Timer läuft nicht ab !!!

[-=cats=-]

Ich muss jetzt nochmal mit diesem Thema anfangen ...

Also, hat vielleicht jemand eine Idee, warum mein
Timer nicht abläuft ?
Ich finde den Fehler einfach nicht

Habe den Quellcode nochmal so geändert:

Delphi-Quellcode:

procedure TForm19.ShellChangeNotifier1Change;
begin

 Form25.Show;
 Timer1.Enabled := true;

end;

procedure TForm19.Timer1Timer(Sender: TObject);
var i : integer;
begin

 for i := 255 to 0 do begin
  Form25.AlphaBlendValue := Form25.AlphaBlendValue - 1;
 end;

 if(Form25.AlphaBlendValue = 0)
 then
 begin
  Form25.Close;
  Timer1.Enabled := false;
 end;

end;

Leider hat das auch nichts genützt
Form25 wird zwar eingeblendet, sie schließt
sich aber nicht ...

Weiß vielleicht jemand, woran das liegen könnte ?

Gruß,
-=cats=-