Pienso que podrías usar algo parecido a esto:
Código Delphi
[-]procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin image1.Canvas.MoveTo(startx,starty); image1.Canvas.LineTo(x,y); end;
end;
Ya que tienes los puntos donde está el cursor en cada momento podrías usarlos en el código este.