hjæælp -=HASTER=-

hjæælp jeg har et problem jeg har tyvstjålet noget kode fra et scrit jeg har hentet fra nettet hvor man skal kunne lave en lang liste med en masse billeder og de skal så blive vist i en Listbox og der første billede er ok men det nsæte går helt i kage :-( her er koden:
procedure TCoolWindowPopup18.CoolItem20002Click(Sender: TObject);
var
  i: Integer;
begin
  if OpenPictureDialog1.execute then
  begin
    if OpenPictureDialog1.Files.Count = 1 then
    begin
      try
      begin
      Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
      if Image1.Picture.Height = Form22.Spinedit2.Value then
      begin
        if Image1.Picture.Width = Form22.Spinedit1.Value then
        begin
          antalbilleder := antalbilleder+1;
          billeder[antalbilleder - 1] := TBitmap.Create;
          try
            billeder[antalbilleder - 1].Width  := Form22.Spinedit2.Value;
            billeder[antalbilleder - 1].Height := Form22.Spinedit1.Value;
            billeder[antalbilleder - 1].PixelFormat := pf24bit;
            billeder[antalbilleder - 1] := Image1.Picture.Bitmap;
            Form9.ListBox1.Items.AddObject(IntToStr(antalbilleder), TBitmap(billeder[antalbilleder-1]));
          except
            MessageDlg(\'Det skete en fejl\', mtError, [mbOk], 0);
          end;
        end
        else
        begin

        end;
      end
      else
      begin
        MessageDlg(\'Bredde: \' + IntToStr(Image1.Picture.Width) + \' Højde\' + IntToStr(Image1.Picture.Height), mtError, [mbOk], 0)
      end;
      end;
      except
        MessageDlg(\'Billedfilen: \' + OpenPictureDialog1.Filename + \' eksisterer ikke\', mtError, [mbOk], 0)
      end;
    end
    else
    begin
      for i := 0 to OpenPictureDialog1.Files.Count-1 do
      begin

      end;
    end;
  end;
end;

og så

procedure TForm9.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var
    BMP      : TBitmap;
    Offset,
    OffsetT,
    RHeight,
    THeight,
    W, H    : Integer;
    DRect  : TRect;
begin
    with (Control as TListBox).Canvas do begin
        DRect := Bounds(Rect.Left + 95, Rect.Top + 2,
                (Rect.Right - (Rect.Left + 95)) - 2,
                (Rect.Bottom - Rect.Top) - 4);
    FillRect(DRect);

    RHeight := Rect.Bottom - Rect.Top;
    BMP := TBitmap((Control as TListBox).Items.Objects[Index]);
        if BMP <> nil then begin
          if (BMP.Width > 90) or (BMP.Height > 90) then begin
              if BMP.Width >= BMP.Height then begin
                W := 90;
                H := Trunc(90 * (BMP.Height / BMP.Width));
              end else begin
                H := 90;
                W := Trunc(90 * (BMP.Width / BMP.Height));
              end;
              Offset := (RHeight - H) div 2;
              DRect := Bounds(Rect.Left + 2, Rect.Top + Offset, W, H);
              StretchDraw(DRect, BMP);
          end else begin
            Offset := (RHeight - BMP.Height) div 2;
            Draw(Rect.Left + 1, Rect.Top + Offset, BMP);
          end;
          Offset := 98;
        end;
        THeight := TextHeight((Control as TListBox).Items[Index]);
        OffsetT := (RHeight - THeight) div 2 + 1;
    TextOut(Rect.Left + Offset, Rect.Top + OffsetT, (Control as TListBox).Items[Index])
    end;
end;