Ускорение передачи чересстрочного видеопотока

[Alex2391]

Доброго времени суток!
Задача: передать видео по сети покадрово с чересстрочкой разверткой.
Как реализую: вывожу видео с помощью MediaPlayer на форму. Меняю кадры в таймере с помощью свойства плеера Position. Затем копирую кадр с формы в TBitmap:

BmpVideo->Canvas->CopyRect(Rect(0,0,BmpVideo->Width,BmpVideo->Height), FormVideo->Canvas, Rect(0,0,FormVideo->Width, FormVideo->Height));

Затем через одну считываю строки:

char *line = new char[1024];
line = (char*)BmpVideo->ScanLine[i]

И каждую строку передаю с помощью UdpSocket.
Все это работает, но не очень быстро, максимально 17 кадров в секунду.
Можно ли ускорить работу программы?