Перевести на Дельфи косинусное преобразование

[MrJenika]

Здравствуйте,
Перейду сразу к делу, есть задание, написать программку которая делает косинусное преобразование картинки.
загружаю картинку в форму этим кодом (дельфи):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, StdCtrls,jpeg, Menus, Spin;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
uses Filtrarion;

var filtr:Tfilter;

// Загрузка файла
procedure TForm1.N1Click(Sender: TObject);
begin
Image1.Picture.RegisterFileFormat('*.jpg','Jpeg format',TJPEGImage);

OpenDialog1.Execute;
If OpenDialog1.FileName<>'' then
        begin
        Image1.Picture.LoadFromFile(OpenDialog1.FileName);
        Image1.Refresh;
        Image1.Width:=Image1.Picture.Width;
        Image1.Height:=Image1.Picture.Height;

        filtr:=Tfilter.Create(Image1);
        end;
end;
  // Запуск фильтрации
procedure TForm1.N2Click(Sender: TObject);
begin
Image1.Hide;

filtr.MC_Filtration(1,2); // данный код перевести на дельфи

filtr.Mark_Struct;
Image1.Show;
end;

// Сохранение файла
procedure TForm1.N3Click(Sender: TObject);
begin
SaveDialog1.Execute;
If SaveDialog1.FileName<>'' then
        begin
        Image1.Picture.SaveToFile(SaveDialog1.FileName);

        end;
end;

end.

Есть реализация функции
filtr.MC_Filtration(1,2); написанная на Microsoft Visual Web Developer C#

эту реализацию не могу перевести на дельфи (а сдать на C# нет возможности , компы те не поддерживают фреймворка)

реализация на C#

public void Page_Load(object sender, EventArgs e)
    {
        string fname1 = Server.MapPath("oo.jpg");
        string fname2 = Server.MapPath("o2.jpg");
        
        Bitmap bmp = new Bitmap(fname1);
        
        double n = 32; int r=0;
        double Cu = 0, Cv = 0;
        
        
          for (int x = 0; x < n; x++)
          {
          
            if (x > 0) 
            Cu = 2 / (Math.Sqrt(n * n));
            else
            Cu = 1 / (Math.Sqrt(n * n));
            
            for (int y = 0; y < n; y++)
            
            { 
            
            if (y > 0) 
            Cv = 2 /(Math.Sqrt(n* n));
            else 
            Cv = 1 /(Math.Sqrt(n* n));
            
               Color Fi = bmp.GetPixel(x, y);
               Fi = Color.FromArgb(r=Fi.R, Fi.G, Fi.B);
                
                float xx = (float)x;
                double yy = (double)y;
                
                double rez =  Cu * Cv * r * Math.Cos((Math.PI * (2 * xx + 1) * yy) / 2 * n) * Math.Cos((Math.PI * (2 * yy + 1) * xx) / 2 * n);
                  
                int temp = (int)rez; 
                Color Fout = Color.FromArgb(temp, temp, temp);
                  //Response.Write(temp + "  ");
                  bmp.SetPixel(x, y, Fout);
                }
            }
        
       bmp.Save(fname2);
      Response.Write("<img src='o2.jpg'width='300'/>");
         


    }

У кого есть какие соображения, прошу отписаться.

Благодарю за потраченное время!