Add an image (= a character as bitmap) and returns its width.
function AjoutImageEtRetourneLargeur(AImages: TCustomImageList; AImageIndex: TImageIndex; AX: single; AChar: char): single