procedure  TForm1.Button2Click(Sender: TObject);
 var 
  i,j,y,x,u,v :integer;
  re,im,md    :real;
  f           :integer;
  scan  : pByteArray;
 begin 
     bmp1:=TBitmap.Create;
     bmp2:=TBitmap.Create;
     Jpg := TJPEGImage.Create;
     Jpg.LoadFromFile(opendialog1.FileName);
     Bmp2.Assign(Jpg);
     for  y:= 0   to  M -  1   do    begin 
       for  x:= 0   to  N -  1   do    begin 
          md :=  0 ;  Re :=  0 ;  Im :=  0 ; f :=  1 ;
           for  V:= 0   to  M -  1   do   begin 
               for  U:= 0   to  N -  1   do   begin 
                Re := Re + (f)*irmage[v,u].Re * cos( 2 *pi*(u*x/M+v*y/N)) -
                           (f)*irmage[v,u].Im * sin( 2 *pi*(u*x/M+v*y/N));
                Im := Im + sin( 2 * 3 . 14 *(u*x/M+v*y/N)) * irmage[u,v].Im;
               end ;
           end ;
           if  odd(x+y)  then  f := f*(- 1 );
          md := sqrt(Re*Re/m*n + Im*Im/m*n);
          i := round(Re*f);
          bmp2.Canvas.Pixels[x,y] := rgb( i, i, i );
       end ;
     end ;
    image3.Picture.Bitmap.Assign(bmp2);
 end ;