, , , , _______________________1011

if (Clipboard()->HasFormat(MyFormat))
{

try
(
Image2->Picture->Bitmap->LoadFromClipboardFormat(CF BITMAP,

Clipboard))->GetAsHandle(MyFormat), 0);

}

catch (...)
(
ShowMessage("  ");

}
)
else

ShowMessage("      MyFormat");

,          
SaveToClipboardFormat, , :

Clipboard()->Assign(Imagel->Picture->Bitmap) ;



Clipboard()->Assign(Imagel->Picture->Graphic);

SaveToFile    ____________________

    
 TGraphic, T Metafile, T Picture



virtual void _fastcall SaveToFile(const AnsiString Filename);



 SaveToFile       File-
Name.



  SaveToFile   TPicture ,  ,
      .    
 ,      My.ico  -
  My.bmp.

TIcon *ico = new TIcon();

try
f

ico->LoadFromFile("My.ico");

Imagel->AutoSize = false;

Imagel->Width = ico->Width;

Imagel->Height = ico->Height;

Imagel->Canvas->Draw(0,0,ico);

Image!->Picture->SaveToFile("My.bmp") ;

}

_finally
{

delete ico;

SaveToStream

    