[chinopom]

Buenas noches comunidad, me encuentro creando un juego pero me encuentro en este problema... tengo 2 componentes Timage que son

imgchar1.picture (de 50x50)
imgchar2.picture (de 50x50)

imgchar1 lo controla el usuario
imgchar2 lo controla el ordenador con un componente TTIMER siguiendo a imgchar1

Lo que quiero hacer es que cuando char2 alcance a char1 termine el juego

este es el codigo que emple teniendo en cuenta que cada personaje mide 50x50... la idea de mi algoritmo es que cuando char2 este en el rango XY de char1, por "logica" estaria en sus escalas XY y el juego tendria que terminar pero n me queda

Delphi no me da error ni nada pero el algoritmo no funciona

aqui el codigo:

//Codigo dentro de un componente Timer a un intervalo de 1//

Var
  c1X, c1Xn, c1Y, c2Y, c1Yn, c2Yn, c2X, c2Xn : integer;

begin
c1X := imgchar1.Left;
c1Xn := c1X + 50;
c1Y := imgchar1.Top;
c1Yn := imgchar1.Top + 50;

c2X := imgchar2.Left;
c2Xn := c2X + 50;
c2Y := imgchar2.Top;
c2Yn := imgchar2.Top + 50;

if (c2X in [c1X..c1Xn]) and (c2Y in[c1Y..c1Yn]) then
begin
  showmessage('Dentro del rango');
end;

Las variables estan constituidas de la siguiente manera:
c1X = 'c1' de char1 / 'X' de coordenadas X
c1Xn = 'c1' de char1 / 'X' de coordenadas X / 'n' de numero elevado a la n potencia (incognita)
(Los mismo se aplica para c1Y - tanto para char1 como para char2)

Si alguien da con el error de este algoritmo porfavor hechenme la mano
Gracias por su tiempo