OwnerDrawItem event example for Delphi

procedure TForm1.LEADImgList1OwnerDrawItemEvent(nIndex: Integer; h_DC: HDC;
  ItemLeft, ItemTop, ItemRight, ItemBottom, ItemBackLeft, ItemBackTop,
  ItemBackRight, ItemBackBottom: Integer);
var
   szText: String;
begin
    //use Windows GDI to custom paints the items

    szText:= LEADImgList1.Item[nIndex].Text;
    Ellipse ( h_DC, ItemLeft, ItemTop, ItemRight, ItemBottom ) ;
    TextOut ( h_DC, ItemLeft, ItemTop, PChar(szText), strlen(PChar(szText)) ) ;
end;