[betopin]

Saludos

Yo habia elaborado un procedimiento similar al que tu propones

 
int tmpH,tmpW;
 if (SaveDialog1->Execute())
 {
  Graphics::TBitmap* bm = new Graphics::TBitmap;
  try
  {
   bm->Width = PaintBox1->Width ;
   bm->Height = PaintBox1->Height;
   tmpW = PaintBox1->Width ;
   tmpH = PaintBox1->Height;
   bm->Canvas->CopyRect(Rect(0,0,tmpW,tmpH),PaintBox1->Canvas,Rect(0,0,tmpW,tmpH);
   bm->SaveToFile(SaveDialog1->FileName);
  }
  __finally
  {
   delete bm;
  }
 }

Pero al guardar la imagen ocurren dos cosas

1) La imagen que se captura no es del paintbox sino una copia parcial de lo que en ese momento sale en pantalla y en pequeño

2) A pesar de que en el savedialog determino las extensiones que deseo con que se guarde la imagen...esta queda sin estensiones, por ende, tengo que escoger el programa con que abrir el archivo para poder ver como quedo

Estaré haciendo algo mal???

Ayuda!!!!!