delphi不编译，怎么样解决？(50分)

如题，有的 空行都编译了，但有代码的地方它反而不编译，重新启动delphi,在新工程里加我都试过了，没用。如何解决？
var
i : integer;
Leadtemp : TLeadImage;
begin
try
LeadTemp := TLeadImage.Create(self);
LeadTemp.parent := Self;
LeadTemp.Visible := False;
LeadTemp.Load(LeadDlgFile1.FileName, 0,0, -1);
LeadTemp.bitmap := LeadImage1.bitmap;
i := LeadImage1.bitmaplistindex;
LeadImage1.bitmapListIndex := strtoint(Edit1.text);
LeadImage1.insertBitMapListItem(strtoint(Edit1.text)-1,LeadTemp.BitMap);
LeadImage1.DeletebitmapListItems(i+1,1);
finally
LeadTemp.BitMapList := 0;
LeadTemp.free;
end;
end;

Delphi的编译器有编译优化的功能，具体情况看看帮助.

呵呵，楼主你看看你打开的是不是那个项目里的单元哦
如果在一个项目里打开别的项目里的单元就有这种情况