Clipboard - dececando

Also these procedures can Help:

--------------------------------------------------------------------------------

procedure CopyButtonClick(Sender: TObject);

begin

   If ActiveControl is TMemo then TMemo(ActiveControl).CopyToClipboard;

   If ActiveControl is TDBMemo then TDBMemo(ActiveControl).CopyToClipboard;

   If ActiveControl is TEdit then TEdit(ActiveControl).CopyToClipboard;

   If ActiveControl is TDBedit then TDBedit(ActiveControl).CopyToClipboard;

end;

procedure PasteButtonClick(Sender: TObject);

begin

   If ActiveControl is TMemo then TMemo(ActiveControl).PasteFromClipboard;

   If ActiveControl is TDBMemo then TDBMemo(ActiveControl).PasteFromClipboard;

   If ActiveControl is TEdit then TEdit(ActiveControl).PasteFromClipboard;

   If ActiveControl is TDBedit then TDBedit(ActiveControl).PasteFromClipboard;

end;

--------------------------------------------------------------------------------

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);

begin

  // setando um texto no clipboard...

  Clipboard.AsText := 'TESTE';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  // copiando um bitmap...

  Clipboard.Assign(Image1.Picture.Bitmap);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  if Clipboard.HasFormat(CF_TEXT        ) then Memo1.Lines.Add(Clipboard.AsText);

  if Clipboard.HasFormat(CF_BITMAP      ) then Image1.Picture.Bitmap.Handle := Clipboard.GetAsHandle(CF_BITMAP);

//  if Clipboard.HasFormat(CF_METAFILEPICT) then ShowMessage('META FILE');

//  if Clipboard.HasFormat(CF_PICTURE     ) then ShowMessage('PCITURE');

//  if Clipboard.HasFormat(CF_COMPONENT   ) then ShowMessage('COMPONENT');

end;