procedure TForm1.Paste1Click(Sender: TObject);
{ Paste from clipboard to Attached TImage. }
begin
  ImageEnProc1.AttachedTImage := Image1;
  {If clipboard contains data valid for TImageEnProc then pastefromclipboard }
  if ImageEnProc1.IsClipboardAvailable then
    ImageEnProc1.PasteFromClipboard
  { else show a message }
  else
    MessageBox(0, 'Can not paste from clipboard.  The clipboard does not contain data valid for TImageEnProc.', 'Warning', MB_ICONWARNING or MB_OK);
end;