if DirectoryExists( ExtractFilePath( OutputFilename )) = False then
    raise Exception.create( 'Directory not found: ' + ExtractFilePath( OutputFilename ));

function Convert_Image(InputFilename: string): boolean;
var
  w, h: integer;
  OutputFilename: string;
  ImageEnView1 : TImageEnView;
begin
  result := false;

  ImageEnView1 := TImageEnView.Create(nil);
  with ImageEnView1 do begin
    IO.LoadFromFile( InputFilename );

    w := 375;        
    h := 375;
    with Proc with begin
        Resample(w, h, rfLanczos3, True);
        ConvertTo(256, ieThreshold); 
        Sharpen(10,4);
    end;

    IEBitmap.PixelFormat := ie8p; 
    IEGlobalSettings().AutoSetBitDepth := True;

    OutputFilename := ReplaceStr(InputFilename,'Cover','Folder'); 
    OutputFilename := ReplaceStr(OutputFilename,'.jpg','.png');

    IO.Params.PNG_Compression := 9;
    IO.SaveToFile(OutputFilename, ioPNG); 
    Free;
  end;

end;