SoloCodigo

 Hola tengo el siguiente problema

Estoy haciendo un programa de tratamiento de imagenes el cual necesita abrir un archivo PGM ahora la matriz que contiene la imagen la vacie en en TImage

for(int i=0;i<filas;i++)
      for(int j=0;j<columnas;j++)
         {
         color=matrix[j]<<16|matrix[j]<<8|matrix[j];
         Image1->Canvas->Pixels[j]=(TColor)color;
         }


el problema surge cuando abro otro archivo pues si la 1er imagen era de 100 x 100 y ahora abro una mas grande solo me dibuja la parte de 100 x 100 pero si hago lo contrario primero abro una imagen de 500 x 500 y despues abro una nueva pero que sea de menos dimension si lo hace correctamente

Porfas ayudenme que ya estoy desesperado

El codigo que utilizo es el siguiente
void __fastcall TMainForm::AbrirPGMClick(TObject *Sender)
{
OpenDialog->FileName="";
Label10->Caption="Ancho= ";
Label11->Caption="Alto= ";

if(OpenDialog->Execute())
   {
   NameIn=OpenDialog->FileName;
   StatusBar1->SimpleText=NameIn;

   if((IMG = read_pnm(OpenDialog->FileName.c_str())) == NULL)
     {
      ShowMessage("ERROR: Leectura!!!");
      exit(1);
     }

   matrix=(byte **)IMG->ptr;
   filas=IMG->rows;
   columnas=IMG->cols;

   Image1->Width=columnas;
   Image1->Height=filas;

      for(int i=0;i<filas;i++)
      for(int j=0;j<columnas;j++)
         {
         color=matrix[j]<<16|matrix[j]<<8|matrix[j];
         Image1->Canvas->Pixels[j]=(TColor)color;
         PaintBox1->Canvas->Pixels[j]=(TColor)color;
         }
Label10->Caption=Label10->Caption+" "+columnas+" pxls";
Label11->Caption=Label11->Caption+" "+filas+" pxls";
   }
}
//---------------------------------------------------------------------------