When I try to load an RTF file using RichEdit1.Lines.LoadFromFile(FilePath) method and RichEdit1.ReadOnly = True then the RichEdit removes all images from the RTF file and shows an empty area in their place:

procedure TForm1.Button1Click(Sender: TObject);
var
  BasePath: String;
  FilePath: String;
begin
  GetDir(0, BasePath);
  FilePath := BasePath + '\TestRtfFileMS.Rtf';

  RichEdit1.Lines.LoadFromFile(FilePath);

  RichEdit2.ReadOnly := True;
  RichEdit2.Lines.LoadFromFile(FilePath);
end;

How do I fix this?