jpg in TImage

[dizzy]

Zitat von ahachmann:

Ich bin grad selber ein wenig am fummel ein JPG in Image zu bekommen.
Naja, und leider kann ich mit dem oben genanten Code nur die Exception "TJPEGImage cannot be assigned to TImage" rufen.
:-0
der code:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
  var jpg: TJPEGImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    jpg := TJPEGImage.Create;
    jpg.LoadFromFile(OpenPictureDialog1.FileName);
    image1.Width := jpg.Width;
    image1.Height := jpg.Height;
    image1.Assign(jpg);    <------- !!!!*
  end;
end;

Mache ich was falsch? Habe Delphi 6
Gruß,
Alexander

* Schreib doch hier einfach mal  image1.Picture.Assign(jpg); So hat es "gekmihesg" auch geschrieben