ImageList en ListBox.Columns:=1

[bulc]

Hola. Estoy intentando colocar una imagen (de un ImageList) a la izquierda del texto de un ListBox. El ListBox se mueve en horizontal para lo que asigno 1 a la prop. Columns. El problema es que en el Canvas del ListBox no quedan bien alineados Imagen-Texto. Las imágenes se agolpan unas sobre otras. Aunque de las cinco que tengo la primera, "casi" queda bien. Me gustaría cargar
unas treinta imágenes de unos 60x40 píxeles para que aparezca una secuencia de imagen+ palabra en cada clic de ratón sobre las flechas del ListBox.
Sigo este código pero un poco a ciegas porque no entiendo bien el proceso.

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do
begin
Canvas.FillRect(Rect); //Carga las coordenadas del TListBox.   
Canvas.TextOut( Rect.Left +ImageList1.Height+2,  Rect.Top,  Items[Index]); //??
ImageList1.Draw(Canvas,  Rect.Left,  Rect.Top, Index); //??
end;
end;

A ver si algún apóstol de Delphi me ilumina. Gracias