procedure TForm1.Timer2Timer(Sender: TObject);
var DeskTop:TCanvas;
begin
DeskTop := TCanvas.Create;
try
with DeskTop do
  Handle := GetWindowDC(GetDesktopWindow);
back.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height),DeskTop,Rect(Left, Top, Screen.Width+Left, Screen.Height+Top)); //Сдесь вставляем область экрана, находящююся под нашей формой TImage, который растянут на всю форму и находится под всеми остальными контролами
finally
  DeskTop.Free;
end;
end;

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, utThread, StdCtrls;

type
  TMainForm = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TRGB32 = packed record
    B, G, R, A: Byte;
  end;
  TRGB32Array = packed array[0..MaxInt div SizeOf(TRGB32)-1] of TRGB32;
  PRGB32Array = ^TRGB32Array;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}
procedure TMainForm.Button1Click(Sender: TObject);
var
  BMP: TBitmap;
  y, x: integer;
  col: byte;
  Line : PRGB32Array;
  startTime, endTime: longword;

begin
  BMP := TBitmap.Create;
  BMP.PixelFormat := pf32bit;
  BMP.Width := ClientWidth;
  BMP.Height := ClientHeight;

  Randomize;
  startTime := GetTickCount;
  for y := 0 to BMP.Height - 1 do
    for x := 0 to BMP.Width - 1 do
      begin
        Line := BMP.ScanLine[y];
        col := Random(255);
        Line[x].B := col;
        Line[x].G := col;
        Line[x].R := col;
//        Line[x].A := col;
      end;
  endTime := GetTickCount;
  Canvas.Draw(0, 0, BMP);
  ShowMessage('Executed in ' + IntToStr(endTime - startTime) + ' msec');
  BMP.Free;
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
  BMP: TBitmap;
  y, x: integer;
  startTime, endTime: longword;
  col: longword;
begin
  BMP := TBitmap.Create;
  BMP.PixelFormat := pf24bit;
  BMP.Width := ClientWidth;
  BMP.Height := ClientHeight;

  Randomize;
  startTime := GetTickCount;
  for y := 0 to BMP.Height - 1 do
    for x := 0 to BMP.Width - 1 do
    begin
      col := Random(255);
      BMP.Canvas.Pixels[x, y] := col or (col shl 8) or (col shl 16);
    end;
  endTime := GetTickCount;
  Canvas.Draw(0, 0, BMP);
  ShowMessage('Executed in ' + IntToStr(endTime - startTime) + ' msec');
  BMP.Free;
end;

end.

function TForm1.transparent(i: Integer; bit1,bit2:TBitmap):TBitmap;
var x,y:Integer;
    r,g,b:Integer;
    map:TBitmap;
begin

map:=TBitmap.Create;
map.Width:=bit1.Width;
map.Height:=bit1.Height;

for x:=0 to bit1.Width-1 do
  for y:=0 to bit1.Height-1 do
    begin
      r:=(GetRValue(bit1.Canvas.Pixels[x,y])*i+GetRValue(bit2.Canvas.Pixels[x,y])*(50-i)) div (50);
      g:=(GetGValue(bit1.Canvas.Pixels[x,y])*i+GetGValue(bit2.Canvas.Pixels[x,y])*(50-i)) div (50);
      b:=(GetBValue(bit1.Canvas.Pixels[x,y])*i+GetBValue(bit2.Canvas.Pixels[x,y])*(50-i)) div (50);

      map.Canvas.Pixels[x,y]:=rgb(r,g,b);
    end; 

Result:=TBitmap.Create;
Result:=map;
end;

Писал сам ибо ничего более подходящего для меня не нашёл.
Затем размываю, хотя нет, сначала размываю картику с заднего фона:

procedure TForm1.kartinka;
const
d = 2;
var
x, y: integer;
i, j: integer;
r,g,b: integer;
PixR,PixG,PixB: array of array of byte;
begin
move:=False; 

PaintDesktop(Form1.Canvas.Handle);

SetLength(Pixr,wd,hg);
SetLength(Pixg,wd,hg);
SetLength(Pixb,wd,hg);
randomize;
with Image2.Canvas do
  begin
  for y := 0 to hg - 1 do
    for x := 0 to wd - 1 do
      begin
      Pixr[x,y] := GetRValue(Pixels[x,y]);
      Pixg[x,y] := GetgValue(Pixels[x,y]);
      Pixb[x,y] := GetbValue(Pixels[x,y]);
      end;
  for y := d to hg - d - 1 do
    begin
    for x := d to wd - d - 1 do
      begin
      r := 0; 
      g := 0;
      b := 0;
      for i := -d to d do
        for j := -d to d do
          begin
          r := r + Pixr[x+i,y+j];
          g := g + Pixg[x+i,y+j];
          b := b + Pixb[x+i,y+j];
          end;
      r := round(r / sqr(2 * d + 1));
      g := round(g / sqr(2 * d + 1));
      b := round(b / sqr(2 * d + 1));
      Pixels[x,y] := RGB(r, g, b);
      end;
    Application.ProcessMessages;
    end;
  end;
end;

а потом смешиваю, но не в этом, суть. Он это делает очень медлено, что мне никак не подходит, потому как я хотел бы делать