incorporar imagenes a un RichEdit1

[jorodgar]

Lo que quiero es hacer un chat tipo MSN y el problema lo tengo cuando quiero poner dibujitos en un RichEdit.
Help me pleaseeeee!!!

[jorodgar]

ya lo he solucionado. La solución es :
var
Pic: TPicture;
begin
if OpenPictureDialog1.Execute Then
begin
Pic := TPicture.Create;
try
Pic.LoadFromFile(OpenPictureDialog1.FileName);
Clipboard.Assign(Pic);
RxRichEdit1.PasteFromClipboard;
finally
Pic.Free;
end;
end;

[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;