将图像放在Delphi/Win32中的组合框(右边缘)中

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Image: TImage;
begin
  with ComboBox1.Canvas do
  begin
    FillRect(Rect);
    Image := TImage.Create(nil);
    try
      Image.Picture.LoadFromFile('path_to_image.bmp');
      Image.Transparent := True;
      Image.Width := 16;
      Image.Height := 16;
      Image.TransparentColor := clFuchsia;
      Draw(Rect.Left + 2, Rect.Top + 2, Image.Picture.Graphic);
    finally
      Image.Free;
    end;
  end;
end;