if (OpenPictureDialog->Execute)
{
 Pict = new TPicture;
 Pict->LoadFromFile(OpenPictureDialog->FileName);
 Clipboard->Assign(Pict);
 Editor->PasteFromClipboard;
 delete Pict;
}