А этот код и не должен ничего рисовать.
Почитайте про TPathData и его методы (хотя бы MoveTo и LineTo)
У одного Canvas должно быть одинаковое количество BeginScene и EndScene - иначе получите Exception.
В Image1MouseMove вообще не понятно что Вы хотели сделать.