incorporar imagenes a un RichEdit1

[jorodgar]

Tengo el codigo siguiente :


procedure TForm1.Button2Click(Sender: TObject);
var
Pic: TPicture;
begin
Pic := TPicture.Create;
Pic := Image1.Picture;
try
Clipboard.Assign(Pic);
RxRichEdit1.PasteFromClipboard;
finally
Pic.Free;
Clipboard.Free;
end;

end;

Cuando presiono una vez el boton me pone la imagen del control Image1 en el RxRichEdit1 (RX Tools). El problema lo tengo cuando presiono por segunda vez. Me aparece una ventana que pone CPU con codigo asm y direcciones de memoria (similar al softice).

¿¿ Alguien me puede ayudar??
Gracias

[jorodgar]

var
Pic: TPicture;
begin
// Pic := TPicture.Create;
Pic := Image1.Picture;
try
Clipboard.Assign(Pic);
RxRichEdit1.PasteFromClipboard;
finally
// Pic.Free;
end;
end;