Bilder in Richedit

[Knotti2005]

Jaja ich hatte das Thema schon mehrmals angeschnitten, nach langen probieren scheint mir das hier...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  jvrichedit1.lines.add( edit1.Text);
end;

procedure TForm1.JvRichEdit1Change(Sender: TObject);
var
 Bitmap: TBitmap;
 Pos: Integer;
begin
  Pos := jvrichedit1.FindText(':-)', 0, Length(JvRichEdit1.Text), []);

  if Pos = -1 then
    exit;

  Bitmap := TBitmap.Create;

  try
    ImageList1.GetBitmap(0, Bitmap);

    JvRichEdit1.SetSelection(Pos, Pos + 3, true);
    JvRichEdit1.InsertGraphic(Bitmap, false);
    JvRichEdit1.SelStart := Length(JvRichEdit1.Text);
  finally
    Bitmap.Free;
  end;
   end;

Als eine gute Lösung oder? Allerdings ist des nur für ein Bild [] in der ImageList wie muss ich den Code ändern für mehere Bilder []?