procedure TForm1.ImageEnViewViewChange(Sender: TObject; Change: Integer);
begin
  TrackBarZoom1.Position := Round(ImageEnView.Zoom);
  UpdateStatusBar;
end;

procedure TFormMain.ImageEnView1ViewChange(Sender: TObject; Change: Integer);
begin  
  if OldImageEditorZoomValue <> ImageEnView1.Zoom then
  begin
    CodeSite.Send('TFormMain.ImageEnView1ViewChange: Zoom has changed');
    UpdateZoomLabel;
    OldImageEditorZoomValue := ImageEnView1.Zoom;
  end;
end;