type
 TVector = array of Double;   // Представление данных для процедур модуля

// Удаление шума из сигнала с использованием вейвлет-преобразования.
// Функция выполняет разложение исходного сигнала Signal с использованием
// вейвлета Mode порядка Order. Возвращаемое значение - сигнал,
// восстановленный по коэффициентам аппроксимации на уровне Level.
function Denoise(
 const Signal: TVector; // Исходный сигнал
 const Mode: Integer;   // Тип вейвлета
 const Order: Integer;  // Порядок вейвлета
 const Level: Integer   // Глубина разложения
 ): TVector;            // Обработанный сигнал
 overload;

type
 TRgb = array[0..2] of Byte;
 PRgb = ^TRgb;
...
var
Scanline,tmpColor: PRgb;
...
for i := 0 to TmpBmp.Height-1 do
begin
   Scanline := TmpBmp.ScanLine[R];

   for j := 0 to TmpBmp.Width-1 do
   begin
       tmpColor := Scanline[1];
       Scanline[1] := Scanline[2];
       Scanline[2] := tmpColor;
       Inc(Scanline);
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 і,j,k : integer;
 Line : PRgb;
 arr : TVector;
begin
 SampleGrabber.GetBitmap(bmp);

 if(bmp.PixelFormat = pf24bit) then
 begin
 if(bmp.Width = 0) then exit;
 if(Length(arr)=0) then
   SetLength(arr,bmp.Width*3);

 for и := 0 to bmp.Height - 1 do
 begin
   Line := bmp.ScanLine[i];
   к := 0;
   for j := 0 to bmp.Width - 1 do
   begin
      arr[k]:= Line[0];
      inc(k);
      arr[k]:= Line[1];
      inc(k);
      arr[k]:= Line[2];
      inc(k);
      inc(Line);
   end;

   //arr := Denoise(arr,0,1,1);
   к := 0;
   for j := 0 to bmp.Width - 1 do
   begin
      Line[0]:= round(arr[k]);
      inc(k);
      Line[1]:= round(arr[k]);
      inc(k);
      Line[2]:= round(arr[k]);
      inc(k);
      inc(Line);
   end;
 end;
 end;
 Image.Picture.Bitmap := bmp;
end;