Here says:

Invalid Floating Point Operation

What do I do?

Break here :
// calculate how much time would whole sound take to play at current pitch.
one_frame_ms := buffsize / bits / freq; // 44100 <----------------------------------
one_frame_ms := one_frame_ms / VirtualSource.Pitch;

0.o