Bilder nebeneinander auf TScrollbox

[danku]

ich lade die bilder über tdirectorylistbox auf eine tscrollbox.

das anordnen versuche ich so zu realisieren:

Delphi-Quellcode:

  nebeneinander := (scrollbox1.clientwidth - abstand) div (groesse +
      abstand);      
    if dateien.count*(Groesse+Abstand+13) < nebeneinander then nebeneinander := dateien.count;
    untereinander := (dateien.count div nebeneinander) +
      ord(dateien.count mod nebeneinander > 0);
    for y := 0 to untereinander - 1 do
      for x := 0 to nebeneinander - 1 do begin
      if z < dateien.count then begin
         temp := TImage.create(scrollbox1);
          temp.tag := z;
          temp.width := groesse;
          temp.height := groesse;
          temp.parent := scrollbox1;
          temp.left := abstand + x * (groesse + abstand);
          temp.top := abstand + y * (groesse + abstand);

es wird aber immer nur eins angezeigt.
(d.h. immer das aktuelle wechselt automatisch und überdeckt das vorhergehende)

die bilder sollen aber alle auf die tscrollbox nebeneinander geladen werden.
wer kann mir helfen?