testImageInputOutput.pas updated