Probleme mit TJPEGImge und compress()

[cruft]

Hallo,

ich wollte in meinem Programm eine JPG Datei öffnen , verkleinern und wieder speichern. nach dem Aufruf von Compress ist die Datei aber 0kb groß !?!?

Was habe ich da nicht verstanden?

MFG cruft

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(OpenPictureDialog1->Execute())
   {
    TJPEGImage* jpg = new TJPEGImage();

    jpg->LoadFromFile(Dialog->FileName);
    jpg->CompressionQuality = 50;
    jpg->Compress();

    jpg->SaveToFile(target);
   }
}