@Roland

ton problème viens de la :



procedure iToXY(const i: integer; var x: integer; var y: integer);
begin
x := i div 10;
y := i mod 10;