[Delphi] Stream verschicken?

...
const
 WM_CAP_DRIVER_CONNECT = WM_USER + 10;
 WM_CAP_SET_PREVIEW = WM_USER + 50;
 WM_CAP_SET_PREVIEWRATE = WM_USER + 52;
...
function capCreateCaptureWindow( lpszWindowName: LPCSTR; dwStyle: DWORD; x, y, nWidth, nHeight: integer; hwndParent: HWND; nID: integer): HWND;
 stdcall;
 external 'AVICAP32.DLL' name 'capCreateCaptureWindowA';

procedure Tform_main.FormCreate(Sender: TObject);
var handle:THandle;
begin
 handle := capCreateCaptureWindow(
 'Video',
 ws_child+ws_visible,
 0, 0, 640, 480,
 panel_main.Handle,
 1);
 SendMessage(handle, WM_CAP_DRIVER_CONNECT, 0, 0);
 SendMessage(handle, WM_CAP_SET_PREVIEWRATE, 30, 0);
 SendMessage(handle, WM_CAP_SET_PREVIEW, 1, 0);
end;