Текущую позицию можно получить от холста, используя Windows API функцию GetCurrentPosition:
CurrentX := LoWord( GetCurrentPosition( Canvas.Handle ) ) ; CurrentY := HiWord( GetCurrentPosition( Canvas.Handle ) ) ;