Bitmap Fade

uses ExtCtrls, Jpeg, StdCtrls

procedure TForm1.Button1Click(Sender: TObject);

 procedure JMC(const BMP: TImage; Pause: integer);
 var
     BytesPourScan : integer;
     w,h           : integer;
     p             : pByteArray;
     jmccouleurs   : integer;
   begin

     If Not (BMP.Picture.Bitmap.PixelFormat in [pf24Bit, pf32Bit])
     then raise exception.create( 'Fehler, Bitmap-Format wird nicht unterstützt.'+
                                   #13+
                                   'Fehler, Bitmap-Format wird nicht unterstützt.');
     try
       BytesPourScan:=Abs ( Integer(BMP.Picture.Bitmap.ScanLine[1])-
                           Integer(BMP.Picture.Bitmap.ScanLine[0]));
     except
       raise exception.create('Error');
     end;

     for jmccouleurs:=1 to 150 do  //Intensitätseinstellungen 1 bis 255
     begin
       for h:=0 to BMP.Picture.Bitmap.Height-1 do
       begin
         P := BMP.Picture.Bitmap.ScanLine[h];
         for w:=0 to BytesPourScan - 1 do
           if P^[w] >0 then P^[w]:=P^[w]-1;
       end;
     Sleep(Pause);
     BMP.Refresh;
    end;
   end;
  begin
 JMC(Image1,9);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Button1click(sender);
 Timer1.enabled := false
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 Timer1.enabled := true
end;