Otra opción que se me ocurre es que recorras todas las imágenes del ToolBar y las escales para que entren dentro del tamaño del Canvas del Toolbar.
Si todas las imágenes son del mismo tamaño, lo que puedes hacer es decirle que el Width de la imagen es:
Código Delphi
[-]Imagen.Width := ToolBar.Canvas.Width div CantidadDeImagenes;
Sino deberás decirle a cada imagen que es la parte proporcional de la original:
Código Delphi
[-]
AnchoTotal := Imagen1.Width+Imagen2.Width+Imagen3.Width+Imagen4.Width+...
Divisor := ToolBar.Canvas.Width/AnchoTotal;
Imagen1.Width := Imagen1.Width div Divisor;
Imagen2.Width := Imagen2.Width div Divisor;
Imagen3.Width := Imagen3.Width div Divisor;
...