ТУПИТ BDS 2006 ! ПОМОГИТЕ !

[UnD)eaD)Snake]

помогите че делать??? у меня bds 2006 раньше норм пахала, а сейчас например если какаянить обшибка в строке, она мне подчеривает строку выше!!! проверял много раз она на строку выше ошибается всегда! еще делаю процедуру, все описал, все норм врубаю она мне пишет:
'(' Expected but ',' found
даже скачивал с нета готовые процедуры 2штуки, и у обоих такаяже фигня!

[Квэнди]

Выложите сюда полностью код и ошибку.

[_SERGEYX_]

Переустанови прогу с нуля. Скорее всего какой-нибудь глюк при установке сторонних компонентов.

[UnD)eaD)Snake]

да я и винду переустонавлявал и саму дельфю непомогает

[UnD)eaD)Snake]

процедура:
procedure TForm1.AddNoise(Bitmap: TBitmap; Amount: Integer; Mono: Boolean);
begin
Bitmap.PixelFormat := pf24Bit;
Randomize;
i := Amount shr 1;
if Mono then
for y := 0 to Bitmap.Height - 1 do
begin
Dest := Bitmap.ScanLine[y];
for x := 0 to Bitmap.Width - 1 do
begin
a := Random(Amount) - i;
with Dest^ do
begin
r := BLimit(r + a);
g := BLimit(g + a);
b := BLimit(b + a);
end;
Inc(Dest);
end;
end
else
for y := 0 to Bitmap.Height - 1 do
begin
Dest := Bitmap.ScanLine[y];
for x := 0 to Bitmap.Width - 1 do
begin
with Dest^ do
begin
r := BLimit(r + Random(Amount) - i);
g := BLimit(g + Random(Amount) - i);
b := BLimit(b + Random(Amount) - i);
end;
Inc(Dest);
end;
end;
end;


Вызываю ее так:
AddNoise(bitmap,form5.spinedit1.val ue,false);

В этом ошибка

[Квэнди]

Еще раз:
кусок кода
строка на которую ругается компилятор
текст ругани

[UnD)eaD)Snake]

'(' Expected but ',' found

[Квэнди]

Попробуем еще раз:
необходимо:
кусок кода, указание какую строку подчеркивает компилятор
текст ошибки

[UnD)eaD)Snake]

Когда вызываю процедуру:
AddNoise(bitmap,form5.spinedit1.val ue,false);

Пишет:
'(' Expected but ',' found