TImage Speichern

[naudoc]

Hallo,
ich habe den obigen Quelltext für mich so verändert:

Delphi-Quellcode:

procedure TForm1.Graphalsjpgspeichern1Click(Sender: TObject);
begin
 with JPGBild do begin
    JPGBild := TJPEGImage.Create;  //JPG erstellen
    Assign(Image2);  //JPG die Bilddaten vom Image übergeben
    SaveToFile(SaveDialog1.FileName);  // Speichern mit dem Filename vom SaveDialog
    Free;  // freigeben ...
  end;
end;

Dann kommt beim Klick auf den Button jedoch folgender Fehler:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: 'TImage kann nicht zu TJPEGImage zugewiesen werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Was habe ich falsch gemacht?

Hilfe wäre nett...

Danke!