Delphi dibuja una línea recta en la imagen1. La línea recta dibujada por image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);

Para dibujar una línea perfectamente recta (como parece), las abscisas u ordenadas de los dos puntos deben ser iguales, y no hay forma de solucionar esto a menos que pongas la línea en negrita.

Además, en la programación real, dibujar objetos rectos en el lienzo de ImageEN funciona mucho mejor, así que no sé si se trata de un procesamiento especial (no he mirado el código fuente)