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:

var
  Bitmap1, Bitmap2, Bitmap3, Bitmap4: TBitmap;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style:=csOwnerDrawVariable;
  //Set height of one item
  ComboBox1.ItemHeight:=20;
  //load all bitmaps
  Bitmap1 := TBitmap.Create;
  Bitmap1.LoadFromFile('chem16.bmp');
  Bitmap2 := TBitmap.Create;
  Bitmap2.LoadFromFile('chip16.bmp');
  Bitmap3 := TBitmap.Create;
  Bitmap3.LoadFromFile('factry16.bmp');
  Bitmap4 := TBitmap.Create;
  Bitmap4.LoadFromFile('skylin16.bmp');
  //assign bitmaps with item objects - caption of the items: Bitmap 1 - Bitmap 4
  ComboBox1.Items.AddObject('Bitmap 1', Bitmap1);
  ComboBox1.Items.AddObject('Bitmap 2', Bitmap2);
  ComboBox1.Items.AddObject('Bitmap 3', Bitmap3);
  ComboBox1.Items.AddObject('Bitmap 4', Bitmap4);
end;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Bitmap: TBitmap;
  Offset: Integer;
begin
  offset:=0;
  with ComboBox1.Canvas do
  begin
    FillRect(Rect);
    Bitmap := TBitmap(ComboBox1.Items.Objects[index]);
    if Bitmap <> nil then
    begin
      //copy bitmap to combobox coordinate
      BrushCopy(Bounds(Rect.Left + 2, Rect.Top + 2, Bitmap.Width,
      Bitmap.Height), Bitmap, Bounds(0, 0, Bitmap.Width,
      Bitmap.Height), clred);
      Offset := Bitmap.width + 8;
    end;
    //Set a caption to each item
    TextOut(Rect.Left + Offset, Rect.Top, Combobox1.Items[Index]);
  end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //free all bitmap objects
  bitmap1.Free;
  bitmap2.Free;
  bitmap3.Free;
  bitmap4.Free;
end;					

1:

BitBlt(ZielImg.Canvas.Handle, 0, 0, Image1.Width, Image1.Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);					

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

procedure TForm1.FormCreate(Sender: TObject);
var z,x : Integer;
    bmp : TBitMap;
    bmp1 : TBitMap;
begin
  ComboBox1.Style := csOwnerDrawVariable;
  bmp := TBitMap.Create;
  bmp1 := TBitMap.Create;
  try
  bmp1.LoadFromFile(ExtractFilePath(ParamStr(0))+'x.bmp');
  bmp.LoadFromFile(ExtractFilePath(ParamStr(0))+'icons.bmp');
  x := bmp.Height;
  ComboBox1.ItemHeight := x + (2 * 2);
  for z := 2 to (bmp.Width div x)-1 do
    ComboBox1.Items.Add('');
  ImageList1.AddMasked(bmp,clNone);
  finally
    bmp.Free;
    bmp1.Free;
  end;
end;					

1:
2:
3:
4:

//...
ImageList1.AddMasked(bmp1,clNone);//<------    
ImageList1.AddMasked(bmp,clNone);  
//...