Отправить поток в сеть

[Баламут]

Привет всем. Возникла такая проблема...
Пытаюсь отправить в сеть поток. Код следующий:

bmp := TBitmap.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, DC, 0, 0, SRCCopy);
Data := TMemoryStream.Create;
Data.Position := 0;
bmp.SaveToStream(Data);
Data.Position := 0;
Socket.SendStream(Data);

При отправке вылетает ошибка: Read of address 00000000.
Почему?!!

 

[Barmutik]

Socket - это что такое ?

 

[Баламут]

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);

Т.е.
Socket: TCustomWinSocket;

 

[Barmutik]

Хммм.. а что за версия Дельфи ?

 

[Баламут]

Версия 6.0. Самое обидное, что если заменить TMemoryStream на TFileStream, то все отлично работает...