могу предложить такой вариант.
в процедуре изменить "битмап" на "График"
procedure Contrast(Bitmap: TBitmap; Value: Integer; Local: Boolean);
procedure Contrast(ImageGraphic: TGraphic; Value: Integer; Local: Boolean);
в процедуре добавить переменную
var
Bitmap:TBitmap;
после begin сделать это
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(ImageGraphic);
и в конце процедуры
Form1.img1.Picture.Graphic.Assign(Bitmap); - или чтоб этого избежать,сделать её в виде функции
http://rghost.ru/45452140