1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  Stream: TMemoryStream;
  i, n: Integer;
  aArray: array of TClipBoardFormat;
begin
  Stream := TMemoryStream.Create;
  SetLength(aArray, ClipBoard.FormatCount);

  n := ClipBoard.FormatCount;

  {ClipBoard sichern}
  for i := 0 to ClipBoard.FormatCount-1 do
  begin
    aArray[i] := ClipBoard.Formats[i];
    ClipBoard.GetFormat(ClipBoard.Formats[i], Stream);
  end;

  ClipBoard.Assign(aPicture.Bitmap);
  PasteFromClipboard;

  ClipBoard.Clear;
  
  {ClipBoard wiederherstellen}
  for i := 0 to n-1 do
    ClipBoard.AddFormat(aArray[i], Stream);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var
  // ...
  aStreams: array of TMemoryStream;
begin
  n := ClipBoard.FormatCount;

  SetLength(aStreams, n);

  // todo: Schleife, um alle n aStreams[i] per TMemoryStream.Create zu erzeugen
  // ...

  for i := 0 to n-1 do
  begin
    aArray[i] := ClipBoard.Formats[i];
    ClipBoard.GetFormat(aArray[i], aStreams[i]);
  end;
  
   // ...
end					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

{Grafik in den Text von TRichMemo einfügen}
procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  i, n: Integer;
  aFormats: array of TClipBoardFormat;
  aStreams: array of TMemoryStream;
begin
  try
    n := ClipBoard.FormatCount;
    SetLength(aFormats, n);
    SetLength(aStreams, n);

    for i := 0 to n-1 do
      aStreams[i] := TMemoryStream.Create;

    for i := 0 to n-1 do
    begin
      aFormats[i] := ClipBoard.Formats[i];
      ClipBoard.GetFormat(aFormats[i], aStreams[i]);
    end;

    ClipBoard.Assign(aPicture.Bitmap);
    PasteFromClipboard;

    for i := Low(aFormats) to High(aFormats) do
      ClipBoard.SetFormat(aFormats[i], aStreams[i]);

  finally
    for i := High(aStreams) downto Low(aStreams) do
      aStreams[i].Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

{Grafik in den Text von TRichMemo einfügen}
procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  i, n: Integer;
  aFormats: array of TClipBoardFormat;
  aStreams: array of TMemoryStream;
begin
  try
    n := ClipBoard.FormatCount;
    SetLength(aFormats, n);
    SetLength(aStreams, n);

Sleep(450) //<- Dies behebt den SIGSEGV-Fehler, Wert kann auch höher sein, 400 klappt nicht

    for i := 0 to n-1 do
      aStreams[i] := TMemoryStream.Create;

    for i := 0 to n-1 do
    begin
      aFormats[i] := ClipBoard.Formats[i];
      ClipBoard.GetFormat(aFormats[i], aStreams[i]);
    end;

    ClipBoard.Assign(aPicture.Bitmap);
    PasteFromClipboard;

    for i := Low(aFormats) to High(aFormats) do
      ClipBoard.SetFormat(aFormats[i], aStreams[i]);

  finally
    for i := High(aStreams) downto Low(aStreams) do
      aStreams[i].Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

implementation
//...
var
//...
  CF_RICHTEXT: Word;//UINT;

procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  i, n: Integer;
  aFormats: array of TClipBoardFormat;
  aStreams: array of TMemoryStream;
  cpFormat: TClipBoardFormat;
begin
  try
    try
      n := ClipBoard.FormatCount;
      SetLength(aFormats, n);
      SetLength(aStreams, n);

      for i := 0 to n-1 do
        aStreams[i] := TMemoryStream.Create;

      for i := 0 to n-1 do
      begin
        aFormats[i] := ClipBoard.Formats[i];
        ClipBoard.GetFormat(aFormats[i], aStreams[i]);
      end;

      if Windows.IsClipboardFormatAvailable(CF_RICHTEXT) then
        cpFormat := CF_RICHTEXT;

      ClipBoard.Assign(aPicture.Bitmap);
      PasteFromClipboard;

      if cpFormat = CF_RICHTEXT then
        for i := Low(aFormats) to High(aFormats) do
        begin
          if aFormats[i] = cpFormat then
            Clipboard.SetFormat(cpFormat, aStreams[i])
        end
      else
        for i := Low(aFormats) to High(aFormats) do
          ClipBoard.SetFormat(aFormats[i], aStreams[i]);  {Andere Formate: Text, Grafiken usw.}

    finally
      for i := High(aStreams) downto Low(aStreams) do
        aStreams[i].Free;
    end;

  except
    ;  {Dzt. nichts}
  end;
end;

//...

initialization
  CF_RICHTEXT := RegisterClipboardFormat(RichEdit.CF_RTF);