Como inserir uma imagem num TRichEdit

uses p tRXRichEdit e faça assim

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Pict: TPicture;
begin
with OpenPictureDialog1 do begin
if Execute then begin
Pict := TPicture.Create;
try
Pict.LoadFromFile(FileName);
Clipboard.Assign(Pict);
Editor.PasteFromClipboard;
finally
Pict.Free;
end;
end;
end;
end;

Adione clipbrd à seção uses.

Desculpe amigo, mas não consegui.

Não consigo colocar a imagem com o código que vc passou.

Não consigo abrir um RTF no word e por uma imagem, salvar o documento no word e abrir o arquivo em meu aplicativo e ver a imagem.

Pelo que eu entendi você quer abrir um documento rtf com imagens, certo?

Então faça assim:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.Execute then begin
editor.Lines.LoadFromFile(opendialog1.filename);
end;
end;

Com esse código não consigo....

Uso Delphi 7.

Você está utilizando o componente rxRichEdit?

Testei esse código aquí e funcionou.

Consigo ver o texto...a imagem nao....



Tenho que alterar algo nas propriedades do RichEdit?

sim:

Não Utilize o RichEdit pois ao que me parece ele não dá suporte à imagens.

Utilize o Componente [b:cf798e6bd0]RXRichEdit[/b:cf798e6bd0] da palheta RXControls

A Propriedade PlainText deve estar setado false.