Нужно изменить качество JPG, делаю так:

  JPG:=TJPEGImage.Create;
  jpg.LoadFromFile('D:\1.jpg');
  jpg.CompressionQuality:=50;
  jpg.Compress;
 
  label12.Caption:=inttostr(jpg.Height);
  jpg.SaveToFile('D:\2.jpg');
  jpg.Free;  

Так вот 2.jpg всегда получается размеров 0 байт, да и значение label12.Caption равно нулю. Причем если закомментировать строчку jpg.Compress все нормально кроме того что выходной файл не изменяется т.е. получается того же размера. В чем может быть загвоздка?

Попробуй перед Compress вставить DIBNeeded....

удивительно но заработало, огромное спасибо, а почему так?

Как говорит справка DIBNeeded - декомпрессия изображения. Т.е. прежде получаешь исходный bitmap, а затем сжимаешь его в другом качестве.