MUy buenas, he mirado tu codigo y por lo que veo tambien quieres dibujar cuando pulsas con el raton en el paintbox... eso ya funciona... lo que comentas del:
Código Delphi
[-]
Canvas.LineTo(edit1.text,50);
Te falta pasar el texto a numero:
Canvas.LineTo(StrToInt(edit1.text),50);
Lo de la inclinacion de la linea te he puesto lo que tu habias pensado...si me explicas que finalidad tiene tu aplicacion a lo mejor te puedo dar algun consejo. Un saludo y espero te resulte util.
P.D: te he puesto un boton "Aplicar propiedades" con el se cambian las caracteristicas a la hora de dibujar con el raton. (Selecciona color y tamaño pulsa "Aplicar Propiedades" y pinchas sobre el paintbox, arrastra y compruebalo.
Miralo y comenta...