如何计算图像的MTF值？ delphi

//我首先根据像素RGB值获取灰度值
function GetGrayNum(color: TColor): Byte;
var
  R, G, B: Byte;
begin
  B := color shr 16;
  G := (color and $00FF00) shr 8;
  R := color and $0000FF;
  // 灰度 = (蓝色分量 * 11 + 绿色分量 * 59 + 红色分量 * 30) / 100;
  Result  := (B * 11 + G * 59 + R * 30) div 100;
end;我的图像大小是90*90的矩形  下面该如何计算其MTF值？