Нарушение кодировки при передаче файла по tcp

Image1->Picture->SaveToFile("1.bmp");
FILE *fread;
int i, c;
TStringList *list = new TStringList;
AnsiString bro;
 
fread = fopen("1.bmp", "rb");
    for(i = 0;;i++) {
        if ((c = fgetc(fread)) == EOF) break;
        bro += (char)c;
    }
    fclose(fread);
        list->Add(bro);
        list->SaveToFile("2.bmp");

Server->Socket->Connections[0]->SendText((AnsiString)"str" + (AnsiString)bro + (AnsiString)"end");

    int endpos = fullmsg.Pos("end");
    int strpos = fullmsg.Pos("str");
    if(endpos > 5)
    {   //ShowMessage(fullmsg);
        if (strpos >= 1)
        {
            fullmsg = ReplaceStr(msg, "ent", "");
            fullmsg = ReplaceStr(msg, "end", "");
            TStringList *list = new TStringList;
            list->Add(fullmsg);
            list->SaveToFile("img.bmp");
            CppWebBrowser1->Hide();
            Image1->Left = CppWebBrowser1->Left;
            Image1->Top = CppWebBrowser1->Top;
            Image1->Width = CppWebBrowser1->Width;
            Image1->Height = CppWebBrowser1->Width;
            Image1->Picture->LoadFromFile("img.bmp");
            fullmsg = "";
        }