delphi图像压缩出错和乱码问题

1.delphi图像压缩问题
TJpegImage这个控件压缩jpg图像，为什么一执行Compress就变空图
Var
      JPG: TJpegImage;
Begin
      jpg   :=   TJpegImage.Create;
      jpg.LoadFromFile('c:\source.jpg');
      jpg.CompressionQuality   :=   10;
      jpg.Compress;//这句要是没在就正常，一在就压缩成空图.
      jpg.SaveToFile('c:\ls.jpg');
      jpg.Free;
end;2.怎么解决delphi的中英文乱码问题。
程序中大家经常要用到中文注释，但代码英文的，所以代码就中英文混合。
所以delphi程序长点(比如到2000行以上)就会出错。
比如一个程序到了2000多行,这时加入一个按钮，并要写代码在里面，这时经常出错。
比如一个edit控件，要显示它的文本 showmessage(edit.text);
输入showmessage后 ,当输( 
它本来要动态提取的，却显示出错，好像叫什么得不到属性还是什么忘拉。
当输edit 再. 它本来会出属性让你选， 和上面一样。我看到网上有人说是delphi中英文混合出错，只要把代码移动到文本，再移动出来就正常。
但经常不行。
现在解决的方式是把新的这个过程，整个移动到程序前面(比如500行内)它就正常。
但每次这样移也不是办法啊，有没其它方法