type  TARGBRect = packed record  Blue, Green, Red, Alpha: Byte;   end; var  I, x, y: Integer;   bmp: TGpBitmap;   bg: TGpGraphics;   Data: TBitmapData;   P: PInteger; begin  DoubleBuffered := True;   bmp := TGpBitmap.Create('0.bmp');   try  Data := bmp.LockBits(GpRect(0, 0, W, H), [imRead, imWrite], pf32bppARGB);   P := Data.Scan0;   for y := 1 to Data.Height do  for x := 1 to Data.Width do  begin  // 计算不透明度   with TARGBRect(P^) do  Alpha := Max(Red, Max(Green, Blue));   //Alpha := (Red + Green + Blue) div 3;   //Alpha := (306 * Red + 601 * Green + 117 * Blue) div 1024;   Inc(P);   end;   bmp.UnlockBits(Data);   bg := TGpGraphics.Create(form1.Canvas.Handle);   bg.DrawImage(bmp, 0, 0, bmp.wideh, bmp.Height);   end;   finally  bg.Free;   bmp.Free;   end; end;