Буфер обмена

#include <vcl\Clipbrd.hpp>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    //Как в билдере скопировать значение из буфера обмена
    if(Clipboard()->HasFormat(CF_TEXT))
    Edit1->Text = Clipboard()->AsText;
    //---и записать тудаже??
    Clipboard()->AsText = Application->Title + " тут рыбы нет!!!";
    
    Edit2->Text = Clipboard()->AsText;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    static i;
 
    Clipboard()->AsText = i++;
    Edit1->Text = Edit1->Text + Clipboard()->AsText;
}
//---------------------------------------------------------------------------

TClipboard *Clip = new Clipboard();

  WORD AFormat;
  unsigned AData; //тутки поставил тип [B]unsigned[/B] вместо [B]int[/B]
  HPALETTE APalette;
 
  TClipboard *nClip = Clipboard();
  nClip->Assign(Clipboard());
  Image3->Picture->Bitmap->SaveToClipboardFormat(AFormat, AData, APalette); //было так //((TImage*)Component)->Picture->SaveToClipboardFormat(AFormat, AData, APalette);
 
  TClipboard *pClip = Clipboard(); // don't clear the clipboard! - вот эта строчка меня особо взволновала
  pClip->SetAsHandle(AFormat, AData);  //
  Memo1->PasteFromClipboard(); //это я добавил (МЕМО - это измененное название компоненто, это не мемо =)))