procedure TFadeThread.PrepareBitmap; begin inherited; with FEffect as TFadeEffect do begin CopyAlpha(0, 0, Width, Height, 64-FStep); end; end;