#include <Clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Clipboard()->Assign(SpeedButton1->Glyph);
Image1->Stretch = True;
Image1->Picture->Assign(Clipboard());
}
// Clipboard()->AsText =Edit1->Text;