Передача из TImage через сокеты

void __fastcall TForm1::ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
        TMemoryStream* str = new TMemoryStream (); 
        str->Position = 0;
        Image1->Picture->Bitmap->SaveToStream(str);
        str->Position = 0;
        Client->Socket->SendStream(str);
        Memo1->Lines->Add(Socket->LocalHost + "подключен");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Client->Active = true;            
}
//-----------------------

void __fastcall TForm1::ServerClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
        int ibLen = Server->Socket->ReceiveLength();
        char* buf= new char[ibLen+1];
        TMemoryStream* str = new TMemoryStream();
        str->Position = 0;
        Server->Socket->ReceiveBuf((void*)buf,ibLen);
        str->WriteBuffer((void*)buf,ibLen);
        str->Position = 0;
        Image1->Picture->Bitmap->LoadFromStream(str);
        Memo1->Lines->Add("Принимаем!");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Server->Active = true;
        Memo1->Lines->Add("Сервер активен!");
}