#pas
procedure TfrmContactMarketing.FormMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var
  Control: TControl;
begin
  Control := FindDragTarget(MousePos, True);
  if (Control = nil) then
    Exit;

  // Все классы компонентов на фрейме над которыми может находится курсор  
  if (Control is TImage) or (Control is TGroupBox) or
     (Control is TLabel) or (Control is TPanel) then
    if (Control.Owner is TFrame) then
    begin
      ScrollBoxFishka.HorzScrollBar.Position :=
        ScrollBoxFishka.HorzScrollBar.Position + WheelDelta;
      Handled := True;
    end;
end;

type

type
 TRGB=record
 b,g,r : byte;
  end;
 Type
   ARGB=array [0..1] of TRGB;
   PARGB=^ARGB;

procedure BlackWhite(image : tbitmap);
var
 i, j, c : integer;
 p : PARGB;
begin
image.PixelFormat:=pf24bit;
for i:=0 to image.Height-1 do
begin
 p:=image.ScanLine[i];
 for j:=0 to image.Width-1 do
 begin
  c:=round(0.3*p[j].r+0.59*p[j].g+0.11*p[j].b);
  if c›=128 then c:=255 else c:=0; //эту строку надо убрать чтобы получить градации серого
  p[j].r:=c;
  p[j].g:=c;
  p[j].b:=c;
 end;
end;
end;