IntersectRect(DstRect, RecRect, ViewRect);
  if not EqualRect(DstRect, RecRect) then begin
    with frmIFFormDesign.isbForm do begin
      HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth  - (RecRect.Right  - RecRect.Left)) / 2);
      VertScrollBar.Position := RecRect.Top  - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top))  / 2);
    end;
  end;

     HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth  - (RecRect.Right  - RecRect.Left)) / 2);
     VertScrollBar.Position := RecRect.Top  - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top))  / 2);