const C_CHAR_INFLATE: TSize = (cx: 10; cy: 10);
// avec FNewSize, vSize1 : TSize FNewSize := FNewSize+vSize1; // ou FnewSize:=FNewSize.Add(vSize1);