чтиние и сохранение картинок из бинарика

AnsiString TMP[50];  for (int i=0; i<51; i++) TMP[i]="";
if(OpenDialog1->Execute())
{
bool reading=false; //копировать или нет
kl=0;
FILE *file;//ссылаемся на этот файл
file=fopen(OpenDialog1->FileName.t_str(),"rb");//открваем файл для чтение
if(file==NULL) {ShowMessage("ошибка");return;}
 
int l; //символ в десятеричном виде
while(!feof(file))//если у нас не конец файла
   {
   l=fgetc(file) ;                                         //получили символ
   if (l==137) {kl++; reading=true;}             //начинаем копировать если символ нужный
   if (reading==true) TMP[kl]+=IntToStr(l);   //копируем
   if (l==130) {reading=false;}                   //заканчиваем
   }
fclose(file);
}
ShowMessage(kl);
ShowMessage(TMP[3]);
//Memo1->Lines->Add(TMP[1]);
 
FILE *file1;
file1=fopen("1.png","wb");//открваем файл для записи
if(file1==NULL) {ShowMessage("ошибка");return;}
char *s=TMP[3].c_str();
fwrite(s,sizeof(char),strlen(s)+1,file1);
fclose(file1);

 byte k=137;
fwrite(&k,sizeof(byte),1,F);

byte kl=0;
 
//вызов
AnsiString TMP,png;
byte l; byte l1,l2;
FILE *file;//ссылаемся на этот файл
if(OpenDialog1->Execute())
{
bool reading=false;
kl=0;
file=fopen(OpenDialog1->FileName.t_str(),"rb");//открваем файл для чтение
if(file==NULL) {ShowMessage("ошибка");return;}
 
while(!feof(file))//если у нас не конец файла
{
   l=fgetc(file);
   if (l==137)
   {
        long int pos = ftell(file) ;  //запомнили позицию
        l1=fgetc(file); l2=fgetc(file);
        png=IntToStr(l)+IntToStr(l1)+IntToStr(l2);
        if (png=="1378078") {kl++; reading=true; }
        fseek(file,pos,0); //вернулись на два бита назад
   }
 
   if (reading==true) TMP+=IntToStr(l)+" ";
 
   //pngEND=IntToStr(l)+" "+IntToStr(l1)+" "+IntToStr(l2)+" ";
   if (l==66)
    {
    long int pos = ftell(file) ;  //запомнили позицию
    l1=fgetc(file); l2=fgetc(file);
    png=IntToStr(l)+IntToStr(l1)+IntToStr(l2);
    if (png=="6696130")
    {
        reading=false;
        TMP+=IntToStr(l)+" "+IntToStr(l1)+" "+IntToStr(l2)+" ";
        SavePNG(TMP,kl);
        TMP="";
    }
    else fseek(file,pos,0);
    }
}
}
fclose(file);
 
void __fastcall TForm1::SavePNG(AnsiString str,byte count)
{
FILE *file1;
AnsiString tmp,name;
byte k;
name=IntToStr(count)+".png";
file1=fopen(name.c_str(),"wb");
if(file1==NULL) {ShowMessage("ошибка");return;}
 
while (str!="")
{
tmp=str.SubString(1,str.Pos(" ")-1);
k=StrToInt(tmp);
fwrite(&k,sizeof(byte),1,file1);
str.Delete(1,str.Pos(" "));
}
fclose(file1);       
}