Лаги при скриншоте

var bmp:TBitmap;
    t:tJpegimage;
begin
    bmp := TBitmap.Create;
    t:=tJpegimage.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    t.Assign(bmp);
    t.CompressionQuality:=20;
    t.Compress;
    Image1.Picture.Assign(t);
    bmp.Free;
end;

t.Assign(bmp);
    t.CompressionQuality:=20;
    t.Compress;

var bmp:TBitmap;
    t:tJpegimage;
begin
    bmp := TBitmap.Create;
    t:=tJpegimage.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    t.Assign(bmp);
    t.CompressionQuality:=20;
    t.Compress;
    Image1.Picture.Assign(t);
    bmp.Free;
end;

bmp := TBitmap.Create;
    t:=tJpegimage.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    t.Assign(bmp);
    t.CompressionQuality:=20;
    MyThread:=TMyThread.Create(False);
    MyThread.Priority:=tpNormal;
    Image1.Picture.Assign(t);
    bmp.Free;
    t.Free;

procedure TMyThread.Execute;
begin
  t.Compress;
  MyThread.Terminate;
end;

MyThread:=TMyThread.Create(False);

Image1.Picture.Assign(t);