string nach smileys parsen

[Nicolai1234]

In der variante vom swissdelphicenter wird der smiley immer an den Anfang vom jvxrichedit gemacht. Ich möchte aber erst Text und dann den Smiley haben. Wie kann ich das machen! Es müsste so sein dass er immer am Ende eingefügt wird

(SourceStream ist das Bild und RichEdit das jvxRichEdit)

Delphi-Quellcode:

procedure PutRTFSelection(RichEdit: TMyRichEdit; SourceStream: TStream);
var
  EditStream: TEditStream;
begin
  with EditStream do
  begin
    dwCookie := Longint(SourceStream);
    dwError := 0;
    pfnCallback := EditStreamInCallBack;
  end;
  RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream));
end;