Imprimir contenido TListBox

[jandro]

Antes de nada, perdon por tardar tanto pero he estado fuera de casa todo este tiempo.

Para los que querian saber como metia imagenes en el ListBox aqui dejo la funcion del evento DrawItem del ListBox

procedure TfMain.MemoListadoDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do begin
begin
MemoListado.Canvas.FillRect(Rect);
MemoListado.Canvas.TextOut(Rect.Left+ImageList1.Width+5,Rect.Top,Memo Listado.Items[Index]);
ImageList1.Draw(MemoListado.Canvas,Rect.Left,Rect.Top,Index);
end;
end;

Las imagenes la coge de un ImageList en BMP.

He probado varios metodos de impresion que aqui habeis puesto pero ninguna imprime las imagenes. Alguna idea de como hacerlo??

Gracias a todos de nuevo
Saludos.

P.D.: Alguien me puede decir como era para que el codigo saliera bonito??