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;