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:

function BitmapToRtf(Bitmap:TBitmap):string;
var
 BitmapInfo, BitmapBytes, Text: string;
 BitmapInfoSize, BitmapBytesSize: cardinal;
 Temp: shortstring;
 HexDIB: string;
 i: integer;
begin
  GetDIBSizes(Bitmap.Handle, BitmapInfoSize, BitmapBytesSize);
  SetLength(BitmapInfo, BitmapInfoSize);
  SetLength(BitmapBytes, BitmapBytesSize);
  GetDIB(Bitmap.Handle, Bitmap.Palette, PChar(BitmapInfo)^, PChar(BitmapBytes)^);
  Text := '{\rtf1 {\pict\dibitmap0 ';
  SetLength(HexDIB, (Length(BitmapBytes) + Length(BitmapInfo)) * 2);
  i := 2;

  for BitmapInfoSize := 1 to Length(BitmapInfo) do
  begin

    Temp := Format('%x', [Integer(BitmapInfo[BitmapInfoSize])]);

    if Length(Temp) = 1 then
      Temp := '0' + Temp;

    HexDIB[i - 1] := Temp[1];
    HexDIB[i]     := Temp[2];
    Inc(i, 2);

  end;

  for BitmapBytesSize := 1 to Length(BitmapBytes) do
  begin

    Temp := Format('%x',[Integer(BitmapBytes[BitmapBytesSize])]);

    if Length(Temp) = 1 then
      Temp := '0' + Temp;

    HexDIB[i - 1] := Temp[1];
    HexDIB[i] := Temp[2];
    Inc(i, 2);

  end;

  Text := Text + HexDIB + ' }}';
  Result := Text;
end;					

1:
2:
3:
4:

Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\2.bmp');
edText.Lines.Add(BitmapToRtf(Bitmap));
Bitmap.Free;