procedure PicResize(const FromFilePath: string; const ToFilePath: string; const NewWidth: integer = -1; const NewHeight: integer = -1)