por que no ejecuta
 

With Image1.Canvas Do Begin

MoveTo (Origen.X,Origen.Y);
LineTo (X,Y);
ellipse ((Origen.X+x)/2,(Origen.y+y)/2,x,y);

end;

no me ejecuta parese que asepta la division entre 2 por que?

No ejecuta es no compila??... seguramente dará un error de compilación, orque el resultado de la división es un real y los parámetros del método ellipse son enteros.
Cambia el operador / por div ;)

Código Delphi [-]
Ellipse((Origen.X+x) div 2, (Origen.y+y) div 2, x, y);

grasias muchas grasias