Bilder von DLL in ImageList

[turboPASCAL]

Delphi-Quellcode:

try
        j.LoadFromStream(r);
        Im.Picture.Bitmap.Assign(j); // <--<< (1)
        test.Add(im.Picture.Bitmap, im.Picture.Bitmap);  // <--<< (2)

(1) Du lädst ein JPEG in ein Bitmap, das klappt ja nun nicht.

Bitte so:
Im.Picture.Assign(j); (2) Da du nun ein JPEG und kein Bitmap hast musst du das Image noch zu einem Bitmap wandeln:

Delphi-Quellcode:

/////////////////////////////////////////////////////
// Convert a JPEG / PNG / GIF etc to Bitmap
// Attention: not for Icons and Metaliles

procedure ImageToBitmap(Img: TImage);
var
  Pic: TPicture;
begin
  Pic := TPicture.Create;
  try
    Pic.Assign(Img.Picture);
    Img.Picture.Bitmap.Assign(Pic.Graphic);
  finally
    FreeAndNil(Pic);
  end;
end;

procedure TForm1.LoadImages; 
//...
ImageToBitmap(Im);
test.Add(im.Picture.Bitmap, im.Picture.Bitmap);
//...