Копирование в буфер обмена

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
;

Другое по теме:

• Форма как графический объект
• Сохранить содержимое буфера обмена или потока как картинку
• Сохранение данных в Clipboard